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Hick-Hack 


Da  gibt  es  ein  Kopierpro¬ 
gramm,  mit  dem  man  die 
1541-Floppy  in  knapp  5  Minuten 
formatieren  und  kopieren  kann. 
Das  geht  also  wesentlich  schnel¬ 
ler  als  nach  dem  Original-Com- 
modore-Modus  und  bietet  für 
viele  die  ersehnte  Arbeitser¬ 
leichterung.  Leider  kann  man 
damit  nicht  nur  die  eigene  Ar¬ 
beit  rationalisieren,  sondern 
auch  fremde  Programme  kopie¬ 
ren.  Vorstellen  oder  totschwei- 
gen?  Man  kann  in  einer  Schios- 
serzeitung  nicht  das  Thema 
Schloß  und  Schlüssel  mit  der  Be¬ 
gründung  ignorieren,  die  Zei¬ 
tung  könne  ja  auch  von  Einbre¬ 
chern  gelesen  werden.  Ande¬ 
rerseits  wird  eindeutig  zuviel  ko¬ 
piert,  was  nicht  kopiert  werden 
dürfte  —  da  müssen  die  Hilfsmit¬ 
tel  nicht  unbedingt  in  allen  De¬ 
tails  beschrieben  werden.  Für 
viele  Könner  stellt  allerdings 
das  Knacken  eines  List-  oder  Ko¬ 
pierschutzes  eine  denksportarti¬ 
ge  Herausforderung  dar  —  un¬ 
ehrliche  Ziele  werden  nicht  ver¬ 
folgt. 

Sollte  man  also  Kopierverfah¬ 
ren  und  Knacktechniken  nicht 
lieber  offenlegen  —  wenn  man 
sie  schon  nicht  mit  Simsalabim 
verschwinden  lassen  kann?  Am 
besten  kann  sich  ja  jeder  vor  Ri¬ 
siken  schützen,  wenn  er  die  Ge¬ 
fahren  genau  kennt  (und  gege¬ 
benenfalls  die  Strafen).  Die 
Mehrzahl  der  in  Deutschland  zu¬ 
gelassenen  Autos  dürfte  auf  Spit¬ 
zengeschwindigkeiten  über  140 
km/h  kommen.  Man  darf  sie  oh¬ 
ne  weiteres  auch  in  der  Stadt 
oder  auf  der  Landstraße  benut¬ 
zen  —  vom  Autofahrer  wird  ganz 
selbstverständlich  verlangt,  daß 
er  sich  an  die  jeweils  geltenden 
Geschwindigkeitsbegrenzun¬ 
gen  hält.  Warum  sollte  man  vom 
Computerbenutzer  soviel  weni¬ 
ger  verlangen  können  als  vom 
Autofahrer?  Auch  wenn  es  noch 
keinen  Computerführerschein 
und  kein  Byte-Radar  gibt. 

M.  Pauly,  Chefredakteur 
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Oe,  C  264  mn  J0V>"ck 


An  erster  Stelle  sind  selbst¬ 
verständlich  die  beiden 
neuen  Heimcomputer  C  16 
und  C  264  zu  nennen.  Offiziell 
wurden  sie  erst  auf  der  Mes¬ 
se  vorgestellt.  Die  64’er  Re¬ 
daktion  hat  aber  den  C  264 
bereits  in  der  letzten  Ausga¬ 
be  getestet  (Bild  1),  der  C  16 
(Bild  2)  beziehungsweise  C 


116  wird  in  dieser  Ausgabe 
behandelt.  Dieser  C  16  (die 
Version  C  116  mit  der  Gummi¬ 
tastatur  wird  in  Deutschland 
voraussichtlich  nicht  ange- 
boten  werden)  weist  ein  äu¬ 
ßerst  günstiges  Preis/Lei- 
stungsverhältnis  auf,  er  wird 
etwa  350  Mark  kosten.  Die 
Zielrichtung  des  C  16  ist  laut 
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tung,  Tabellenkalkulation 
und  Lösungen  zu  Steuer-, 
Finanzierungs-  und  Versi¬ 
cherungsfragen,  sowie 
Grafik-  und  Window-Fähig¬ 
keit  und  zwar  zu  Hause  wie 
im  Büro.  All  diese  Funktio¬ 
nen  soll  der  C  264  mit  Hilfe 
des  Softwarepakets  »Magic 
Desk«  —  als  Modul  oder  Dis¬ 
kette  ladefähig  —  bewälti¬ 
gen  können.  Dieses  und  wei¬ 
tere  Programme  sollen  künf¬ 
tig  wahlweise  auch  gleich  in 
der  Hardware  eingebaut  be- 


Tongeneratoren  und  einem 
Rauschgenerator,  die  Audio- 
schnittstelle,  Sprites  und  der 
Maschinensprach-Monitor 
können  Sie  im  Testbericht 
nachlesen.  Die  gesamte  Pe¬ 
ripherie  vom  C  64  wird  auch 
mit  dem  C  264  nutzbar  sein. 
Commodore  sieht  den  C  264 
nicht  als  Konkurrenz  für  den 
C  64,  sondern  als  Ergänzung 
nach  oben  hin.  Der  Preis 
wird  sich  demzufolge  auch 
etwas  noch  oben  verschie¬ 
ben  und  wohl  in  der  Gegend 


Alwin  Stumpf,  Geschäfts¬ 
führer  von  Commodore 
Deutschland,  den  Compu¬ 
ter-Anwender  von  morgen 
schon  heute  mit  Computern 
vertraut  zu  machen.  Der  C 16, 
ausgestattet  mit  16  KByte 
RAM  und  32  KByte  ROM  und 
der  erweiterten  Basic- 
Version  3.5,  einer  »physikali¬ 
schen«  Cursorsteuerung,  ci 
nem  Format  das  kleiner  als 
A4  ist,  einer  Schreibma- 
schinen-Tastatur,  mit  Umstel¬ 
lungsmöglichkeit  von  40  Zei¬ 
chen  x  25  Zeilen  und  121 
Farbtönen,  einem  Synthesi¬ 
zer  mit  jeweils  einem  Ton- 
und  Rauschgenerator  und 
der  Aus/Eingabe  über  se¬ 
rielle  Schnittstelle,  zwei  Joy¬ 
stickports  (allerdings  mit 
neuartigen  Anschlüssen), 
Video-  und  TV-Anschluß  so¬ 


wie  dem  Kassettenport,  soll 
eine  sinnvolle  Abrundung 
der  Commodore-Palette 
nach  unten  realisieren.  In¬ 
wieweit  der  C  16  den  VC  20 
ersetzen  oder  ablösen  wird 
ist  fraglich,  zumindest  Je¬ 
doch  zu  vermuten. 

C  16  und  C  264 
—  die  neuen 
Renner? 

Praktisch  als  Gegenpol 
soll  der  neue  C  264  laut  Ha¬ 
rald  Speyer,  Vice  President 
des  Unternehmens,  berufli¬ 
chen  Zwecken  dienen  und 
den  Markt  nach  oben  hin  ab¬ 
decken.  Zu  diesem  Bereich 
gehören  zum  Beispiel  Datei¬ 
verwaltung,  Textverarbei- 


zogen  werden  können  (soge¬ 
nannte  integrierte  Software). 
Die  Unterschiede  zum  C  64 
und  C  16  wie  etwa  64  KByte 
RAM  (davon  60  KByte  für  Ba¬ 
sic),  Synthesizer  mit  zwei 


von  1200  Mark  zu  liegen  kom¬ 
men. 

Nun  gibt  es  auch  von  Com¬ 
modore  einen  Farbdrucker 
(Bild  3).  Dieser  Color- 
Matrixdrucker  MCS  801  ver- 
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fügt  über  folgende  Charak¬ 
teristika: 

7  Farben,  serielles  Commo- 
dore-Interface,  50  Zeichen 
pro  Sekunde,  mit  maximal 
vier  Floppy-Laufwerken 
funktionsfähig,  Groß/Klein¬ 
schreibung  sowie  Grafikzei¬ 
chen.  Der  Preis  wird  sich 
wohl  bei  zirka  1500  Mark  ein¬ 
pendeln. 


Drei  neue  Drucker 


Der  Typenradrucker  DPS 
1101  (DPS  steht  für  Daisy 
Wheel  Printer  System:  Bild  4) 
entspricht  hinsichtlich  Be¬ 
dienerfreundlichkeit. 
Druckqualität  und  des  Verar¬ 
beitungskomforts  dem  Stand 
der  Technik.  Er  bietet  bidi¬ 
rektionale  Druckweise  mit 
Triumph  Adler-kompatiblen 
Typenrädern,  druckt  bis  zu 
18  Zeichen  in  der  Sekunde, 
und  beherrscht  Proportio¬ 
nalschrift;  die  maximale 
Breite  inklusive  Traktorfüh¬ 
rung  beträgt  13  Zoll,  es  las¬ 
sen  sich  bis  zu  zwei  Kopien 
erzeugen  und  er  ist  sowohl 
an  VC  20,  C  64  und  C  264  an¬ 
schließbar.  Mit  rund  2000 
Mark  liegt  er  noch  am  unte¬ 
ren  Rand  der  Preisskala. 

Außerdem  werden  dem¬ 
nächst  noch  zwei  neue  Ma¬ 
trixdrucker,  der  MPS  802  und 
803  (Bilder  5  und  6)  auf  den 
Markt  kommen.  Über  diese 
beiden  Drucker  war  aller¬ 


Speziell  für  den  Bereich 
Schule,  Aus-  und  Fortbildung 
ergab  sich  durch  die  Zusam¬ 
menarbeit  von  Commodore 
mit  dem  Schulbuch-Verlag 
Westermann  eine  ganze 
Menge  an  neuen  Lernpro¬ 
grammen.  So  gibt  es  jetzt  für 
den  C  64  einen  Recht- 
schreiblöwen,  einen  Re¬ 
chenlöwen  (mit  den  vier 
Grundrechenarten)  für  das 
zweite  und  dritte  Schuljahr, 
ein  Mathematikprogramm 
für  das  erste  Schuljahr,  die 
leicht  zu  erlernende  Pro¬ 


dings  auf  der  Hannover  Mes¬ 
se  noch  nicht  viel  zu  erfahren. 

Daß  durch  ein  Modul  im 
Wert  von  250  Mark  der  Com¬ 
modore  64  (250  000  Exempla¬ 
re  sind  mittlerweile  in  der 
Bundesrepublik  im  Einsatz) 
Btx-fähig  wird,  sofern  ein 
Farbfemsehgerät  mit  einem 
CEPT-Dekoder  vorhanden  ist 
(Bild  7,  mit  einem  Loewe- 
Gerät),  haben  wir  schon  in 
der  letzten  Ausgabe  be¬ 
schrieben.  Die  Vorteile  die¬ 
ser  Lösung  sind  die  Speiche¬ 
rung  der  Btx-Seiten  auf.F: 
py  und  die  Off-lirie-Benut- 
zung  des  Btx-Netzes.  Das 
heißt,  sie  können  die  Antwort¬ 
seiten  ohne  Zeitdruck  ausfül¬ 
len  und  so  die  üblichen  Feh¬ 
lerraten  reduzieren. 

Sicher  werden  sich  einige 
gewundert  haben,  warum 


ILtftt 


Bild  6. 


bei  dem  Programm  Magic 
Desk  die  einzelnen  Symbole 
für  Schreibmaschine, 

Drucker  oder  Papierkorb  so 
groß  ausgefallen  sind.  Die 
Erklärung  ist,  daß  nun  auch 
ein  Touch-Panel  (Bild  8)  auf 
den  Farbmonitor  1701/1702 
aufgesteckt  werden  kann. 
Dadurch  lassen  sich  nun  die 
einzelnen  Funktionen  durch 
einfaches  Zeigen  mit  dem 
Finger  aufrufen. 


Kassetten- 


Betriebssystem 
für  Commodore  64 

Unter  der  Bezeichnung 
ACOS+  (Advanced  Casset- 
te  Operating  System)  bietet 
die  Firma  Melbourne  House 
ein  umfangreiches  Utility- 
Paket  für  den  C  64  an.  Kern¬ 
stück  von  ACOS+  ist  ein 
neuartiges  Betriebssystem 
für  die  Datassette,  das  alle 
Kassettenoperationen  we¬ 
sentlich  beschleunigt.  Ähn¬ 
lich  wie  bei  einer  Diskette 
wird  ein  Directory  am  An¬ 
fang  jeder  Kassette  aufge¬ 
zeichnet.  Nach  Auswahl 
eines  Programms  spult 
ACOS+  automatisch  mittels 
schnellen  Vorlaufs  bis  zur 
entsprechenden  Bandstelle 
vor  und  lädt  das  gewünschte 
Programm.  Daneben  enthält 
ACOS+  zahlreiche  weitere 
Hilfsmittel  für  Spritesteue¬ 
rung,  Tonerzeugung  und 
Grafik  sowie  eine  Reihe  wei¬ 
terer  Utilities. 

Info:  Melbourne  House  (Publishers)  Ltd, 
Castle  Yard  House,  Castle  Yard,  Richmor.d 
TW10  6TF  (USA),  Tel.  01-9406064 
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Neuer  6502-Editor/ 
Assembler 

Von  Profisoft,  gibt  es  jetzt 
ein  neues  Editor/Assem¬ 
bler-Paket  speziell  für  den  C 
64.  Das  Progiammpaket  ent¬ 
hält  einen  komfortablen 
2-Pass- Assembler,  einen  er¬ 
weiterten  Editor,  einen  Dis¬ 
assembler  sowie  einen  Ma¬ 
schinensprachemonitor  für 
direkten  Speicherzugriff. 
Der  Assembler  unterstützt 
den  vollen  6502/65 10-Be- 
fehlssatz.  Der  sehr  komforta¬ 
ble  Editor  bietet  eine  Viel¬ 
zahl  von  Funktionen  zur 
Bearbeitung  von  Assembler- 
Quellprogrammen,  kann 
aber  auch  für  Basic-Pro- 
gramme  eingesetzt  werden. 
Alle  Editorfunktionen  sind 
direkt  von  Basic  aus  erreich¬ 
bar  Der  Disassembler  er¬ 
möglicht  die  Definition 
eigener  Label  und  erzeugt 
assemblierbaren  Quellcode. 

Der  Editor/Assembler 
wird  wahlweise  auf  Kassette 
oder  Diskette  geliefert. 

Info:  ProfisoR,  Sutthauser  Str.  50/52,  4500 


grammiersprache  Logo  und 
als  Ergänzung  dazu  Logo- 
Grafik  mit  dem  durch  einfa¬ 
che  Befehle  komplexe 
Zeichnungen  erstellt  wer¬ 
den  können.  Durch  diese  Ini¬ 
tiative  soll  der  doch  erhebli¬ 
che  Nachholbedarf  im  com¬ 
putergestützten  Lernen  in 
Deutschland  überwunden 
werden.  Dazu  sollen  auch  ei¬ 
ne  Reihe  von  Lehr-  und  Ar¬ 
beitsbüchern  beitragen,  so 
zum  Beispiel  »Logo«  (Band  3, 
aus  der  neuen  Commodore- 
Buchreihe),  ein  Lexikon  und 
»Werkzeug«  für  den  Lern- 
denden  im  Umgang  mit  der 
Programmiersprache  Logo. 

Natürlich  hatte  Commodo- 
re  nicht  nur  Neuigkeiten  auf 


dem  Heimcomputer-Sektor 
anzubieten.  Besondere  Be¬ 
achtung  fand  auch  der  IBM- 
kompatible  Commodore  PC. 
Wer  darüber  genauere  In¬ 
formationen  haben  will,  kann 
einen  ersten  Testbericht  in 
Computer  persönlich,  Aus¬ 
gabe  11,  lesen.  Endgültig  zu 
haben  wird  der  tragbare 
16-Bit-Computer  wohl  aber 
erst  im  Herbst  sein. 

Speziell  für  den  kommer¬ 
ziellen  Markt  kreierte  Com¬ 
modore  den  CBM  8296,  eine 
Weiterentwicklung  des  alt¬ 
bewährten  CBM  8032/8096. 
Er  ist  ausgestattet  mit  128 
KByte  RAM;  das  Betriebssy¬ 


Bild  7.  Der  Commodore 
64  kann  als  intelligente 
Tastatur  für  die  Bearbei¬ 
tung  von  Btx-Seiten  ein¬ 
gesetzt  werden.  Die 
Abspeicherung  auf  die 
Floppy  ist  dabei  möglich 


stem  LOS-96  gehört  zum  Lie¬ 
ferstandard,  Programmier¬ 
sprachen  sind  TCL-Pascal, 

UCSD-Pascal,  Comal  und  As¬ 
sembler,  —  wählbar  sind 
ASCII-  oder  DIN-Tastatur,  die 
Tastatur  ist  frei  beweglich. 

Mit  dem  CBM  Z  8000  prä¬ 
sentiert  Commodore  eine 
neue  Computerfamilie  die  in 
der  Stsndardversion  den  An¬ 
schluß  von  zwei  Arbeitsplät¬ 
zen  gestattet;  spätere  Aus¬ 
baustufen  sollen  die  Verbin¬ 


dung  mit  acht  und  mehr  Tsr- 
minals,  ermöglichen.  Der  Z 
8000  stellt  also  ein  gehobenes 


16-Bit-Multi-User-System  das 
unter  dem  UNIX  7  angepaß¬ 
ten  Coherent-Betriebsystem 
COHOS  läuft,  dar.  Weitere 
Kennzeichen  smd  256  KByte 
RAM  minimale  Speicherka¬ 
pazität,  Programmierspra¬ 
chen  wie  Basic,  Pilot,  Assem¬ 
bler  und  C-Compiler  optio¬ 
nal,  ein  monochromer  Bild¬ 
schirm  mit  einer  Auflösung 


gen.  Nach  meiner  persönli¬ 
chen  Beurteilung  war  kein 
anderer  Stand  derart  über¬ 
laufen,  erregte  kein  anderes 
Unternehmen  dieses  Aufse¬ 
hen.  Mit  Commodore  wird 
also  auch  in  der  Zukunft  zu 
rechnen  sein.  (aa) 


von  1024  x  1024  Punkten,  zwei 
programmierbare  RS  232- 
Schnittstellen,  selbstver¬ 
ständlich  das  IEEE/84-Inter- 
face,  eine  optionale  10- 
MByte-Festplatte,  1,3  MByte- 
Floppy,  arithmetischer  Ko¬ 
prozessor  Z  8070  und  Maus- 
Anschluß. 


Commodore 

forever? 


Commodore  hat  also  auf 
der  Messe  voll  zugeschla- 
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Nach  eigenem  Empfinden 
machen  sich  die  Raubko¬ 
pierer  die  Hände 
schmutzig 


Wer  hat  nicht  schon  selbst 
Programme  zumindest  gesehen, 
in  denen  die  Kürzel 
Jedi,  KBR,  Kotzbrocken,  Oleander, 
oder  1103,  oder  Nachrichten 
wie  »Brooken  by  Antiram. 

Greetings  to  Zeropage 
and  Superman«  von  der  dunklen 
Herkunft  zeugen? 

Wir  haben  uns  in  den  Untergrund 
begeben  und  mit 

»High  Society«  der  deutschen  Knacker 
gesprochen.  Die  Creme  de  la  creme  der  Knacker,  rund  ein 
Dutzend  Leute,  haben  sich  zu  einem  »Club« 
zusammengeschlossen. 

12  ütfay  Ausgabe 


Das  wohl  überraschendste 
Ergebnis  dieses  Inter¬ 
views  dürfte  die  Aussage  der 
Knacker  sein,  künftig  mit  ei¬ 
nigen  Händlern  Zusammen¬ 
arbeiten  zu  wollen.  Wie  kann 
es  dazu  kommen,  daß  die 
Geschädigten  mit  den  Schä¬ 
digern  kooperieren?  Ein  der¬ 
artiges  »Gentleman  Agree¬ 
ment«  wird  nur  geschlossen 
werden,  wenn  beide  Seiten 
einen  gewissen  Vorteil  dar¬ 
aus  ziehen  können.  Der  Vor¬ 
teil  für  die  Knacker  ist  offen¬ 
sichtlich.  Sie  werden  direkt 
von  den  Händlern  mit  der 
neuesten  Software  versorgt. 
Die  Knacker  versprechen  im 
Gegenzug  diese  Programme 
zumindest  eine  Zeitlang 
nicht  weiter  zu  verbreiten, 
oder  nur  im  engsten  Kreis. 
Somit  hat  der  Händler  eine 
ausreichende  Zeitspanne 
zur  Verfügung,  das  Pro¬ 
gramm  in  kostendeckenden 
Mengen  zu  verkaufen  —  und 
das  geht  nur,  wenn  es  noch 
nicht  auf  dem  Schwarzmarkt 
zu  haben  ist.  Außerdem  be¬ 
raten  ihn  die  Knacker,  wel¬ 
che  Programme  er  sich  aus 
den  USA  oder  England  be¬ 
sorgen  soll.  Die  Knacker  ha¬ 
ben  ja  die  meiste  Erfahrung 
und  oft  auch  die  besseren 
Beziehungen  und  wissen 
deshalb  auch,  welche  Pro¬ 
gramme  sich  gut  verkaufen 
lassen  und  welche  nicht.  So¬ 
weit  so  gut,  aber  es  gibt  auch 
noch  eine  andere  Sorte,  die 
sich  nicht  diesem  Abkom¬ 
men  angeschlossen 
haben: 


Eine  Folge  der  unerlaubten  Weitergabe 
von  Programmen  kann  die  oben 
dargestellte  sein 
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die  Raubko¬ 
pierer.  Um  den 
Unterschied  aufzuzeigen  soll 
eine  Definition  der  Knacker 
verwendet  werden.  Origi¬ 
nalton: 

»Knacker  oder  Cracker 
sind  Leute,  die  den  Kopier¬ 
schutz  entfernen,  so  daß  man 
das  Programm  einfach  mit 
LOAD  und  SAVE  vervielfälti¬ 
gen  kann.  Zudem  werden  die 
Programme  »komprimiert«, 
das  heißt  die  platzaufwendi¬ 
ge  Abspeicherung  des  Orgi- 
nals  wird  reduziert,  damit  aus 
Gründen  der  Übersichtlich¬ 
keit  mehr  Spiele  auf  eine  Dis¬ 
kette  passen  (kein  Wunder 
bei  mehr  als  tausend  Pro¬ 
grammen). 

Kopierer  hingegen  haben 
spezielle  Kopierprogramme 
(Block-Copy,  F-Copy),  mit  de¬ 
nen  der  Kopierschutz  einfach 
mitübertragen  wird.  Die  wol¬ 
len  durch  den  Verkauf  dieser 
Programme  Geld  machen. 

Und  dann  gibt  es  in 
Deutschland  seit  neuestem 
die  Hacker.  Diese  dringen 
über  Modem  und  Akustik¬ 
koppler  in  Datenbanken  an¬ 
derer  Leute  ein  und  schauen 
sich  da  ein  bißchen  um.  Bei 
Eduscho  werden  sich,  so  ha¬ 
ben  wir  gehört,  in  nächster 
Zeit  einige  Leute  über  eine 
unerwartete  Gehaltserhö¬ 
hung  freuen  können.  Es  gibt 
mittlerweile  sogar  ein  eige¬ 
nes  Magazin,  die  Daten¬ 
schleuder  vom  Chaos  Com¬ 
puter  Club  in  Hamburg.  Da 
stehen  prima  Tips  und  'Ifele- 
fonnummem  dnn.« 

Nach  dieser  kurzen  Dar¬ 
stellung,  wer  eigentlich  was 
macht,  folgt  nun  ein  Auszug 
aus  dem  Interview  mit  vier 
Meister-Knackern.  Sie  haben 
sehr  freimüüg  aus  ihrem  Me¬ 
tier  erzählt.  Aus  verständli¬ 
chen  Gründen  können  wir 
keine  Namen  nennen. 

Frage:  Wie  sind  diese  Kopierer  ei¬ 
gentlich  an  die  Kopierprogramme  ge¬ 
kommen? 

»Tja,  die  Kopierprogramme 
stammen  von  Leuten,  die  Ma¬ 
schine  können  (das  heißt, 
sehr  gut  in  Maschinenspra¬ 


che  programmieren),  aber 
über  keine  so  guten  Bezie¬ 
hungen  zu  den  Händlern  ver¬ 
fügen.  Die  haben  sie  dann  an 
Leute  gegeben,  die  gute  Be¬ 
ziehungen  zu  den  Firmen, 
aber  nicht  die  Fähigkeiten 
hatten.  Die  haben  dann  zwar 
die  begehrten  Spiele,  aber 
leider  sind  so  die  Kopierpro¬ 
gramme  auf  den  Markt,  ich 
meine  natürlich  den  Schwarz¬ 
markt,  gekommen.  Früher 
war  der  Schwarzmarkt  noch 
von  den  Knackern  abhängig, 
doch  jetzt  sind  leider  die  Ko¬ 
pierprogramme  verbreitet.« 

Wenn  bereits  Programme  im  Umlauf 
sind  die  den  Kopierschutz  einfach  mit¬ 
kopieren,  hat  es  da  überhaupt  noch 
Sinn,  Programme  zu  schützen? 

»In  den  USA  werden  die  be¬ 
sten  Knacker  von  den 
Software-Firmen  aufgekauft, 
um  einen  Kopierschutz  für  de¬ 
ren  Produkte  zu  schreiben.  | 
Die  Knacker  haben  ja  das 
Kr.ow-how.  Wir  haben  auch 
schon  einen  Kopierschutz  ge¬ 
macht,  der  nicht  mit  den  gän¬ 
gigen  Kopierprogrammen  zu 
knacken  ist.  Wir  bieten  daher 
den  Firmen  unsere  Mitarbeit 
an.  Der  Vorteil  für  die  Firmen 
liegt  klar  auf  der  Hand.  Nur 
noch  die  besseren  Program¬ 
mierer  können  die  neuesten 
Programme  knacken  und  die 
wollen,  zumindest  was  uns 
betrifft,  mit  den  Händlern  Zu¬ 
sammenarbeiten.  Ein  guter 
Kcpierschutz  hat  aber  wenig 
Sinn,  wenn  andere  Leute  die 
Programme  schon  unge¬ 
schützt  verbreiten.  Wir  hatten 
zum  Beispiel  die  ungeschütz¬ 
te  Version  von  Soccer  von 
Commodore  bereits  ein  hal¬ 
bes  Jahr  bevor  es  auf  den 
Markt  kam.« 

Vertreibt  ihr  noch  geknackte  Pro¬ 
gramme? 

»Früher  haben  wir  schon  ei¬ 
nige  Sachen  verkauft,  jetzt 
aber  nicht  mehr  so.  Ein  biß¬ 
chen  schon  noch,  wir  haben 
zum  Beispiel  eine  ziemlich 
hohe  Telefonrechnung  durch 
die  ständigen  Verbindungen 
mit  den  Freunden  in  ganz 
Deutschland.  Der  Informa¬ 
tionsfluß  zwischen  uns  ist  sehr 


gut.  Sobald  einer  ein  neues 
Spiel  hat,  ist  das  innerhalb 
von  einem  Tag  rum.  Die  Un¬ 
kosten  müssen  ja  noch  rem- 
kommen.  Aber  ansonsten 
tauschen  wir  nur  im  harten 
Kern.  Profit  wollen  wir  keinen 
machen.« 

Warum  knackt  ihr  eigentlich  Pro¬ 
gramme?» 

»Zum  einen  weil  es  emfach 
Spaß  macht  in  fremden  Pro¬ 
grammen  rumzupfuschen, 
und  zum  anderen  weil  die 
Programme  einfach  viel  zu 
teuer  sind.  Man  kann  nicht 
100  bis  150  Mark  für  ein  Spiel¬ 
programm  ausgeben  und 
dann  nach  zwei  oder  drei  Ta¬ 
gen  ist  es  langweilig.  Wir  sind 
Sammler,  wir  müssen  haben. 
Je  mehr  desto  besser  und  da 
kann  man-  sich  das  natürlich 
als  Schüler  oder  Student 
nicht  leisten.  Also  wird  ein 
Spiel  gekauft  oder  besorgt, 
geknackt  und  getauscht  und 
schon  haben  sich  die  Kosten 
vermindert.« 


Wie  ist  eigentlich  das  Verhältnis 
von  Spielprogrammen  und  ernsthaften 
Programmen  in  eurer  Sammlung? 

»Wir  haben  hauptsächlich 
Spiele.  Ernsthafte  Program¬ 
me  haben  wir  auch  ein  paar, 
aber  nur  so  zum  Hausge¬ 
brauch.  Diese  Programme 
sind  auch  oft  zu  komplex  um 
sie  ohne  Anleitung  sinnvoll 
einsetzen  zu  können.  Wir  sind 
Spieler.  Am  liebsten  sind  mir 
die  Denkspiele  und  die  Ab¬ 
enteuerspiele.  Schießspiele 
werden  schnell  langweilig.« 

Welches  sind  die  wichtigsten  Werk¬ 
zeuge  zum  Knacken? 

»Natürlich  ein  bis  zwei 
Computer,  Monitore,  Floppy- 
Laufwerke,  und  einige  Tbol- 
kits  wie  Maschinensprach- 
Monitore  und  em  guter  Disk- 
Mon.  Am  wichtigsten  ist  aber 
ein  großes  Hirn.« 

Habt  ihr  eigentlich  keine  Gewissens¬ 
bisse? 

»Nein,  keine,  wieso?« 

Einige  Firmen  gehen  mittlerweile  ri¬ 
goros  gegen  die  Raubkopierer  und 


Kleinanzeigen 
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hier  manches  nicht  mit  rechten 


limBl! 


Sisniet  dabeisteht  »ajleSynapsfr 


Eine  Programmsamm¬ 
lung  von  300  Programmen 
dürfte  in  der  Regel  durch 
Softwaretausch  entstan¬ 
den  sein.  Kann  man  aber 
die  derart  erworbenen 
Programme  Weiterver¬ 
käufen?  Die  Anwort  lautet 
ganz  klar:  nein.  Das  Copy¬ 
right  und  die  Vertriebs¬ 
rechte  liegen  bei  der 
Herstellerfirma  oder  dem 


Vertreiber.  Dennoch  wird 
aus  Sammlerleidenschaft 
oder  wegen  niederer  Pro¬ 
fitgier  fleißig  kopiert  und 
verkauft.  Gegen  private 
Kopier-  und  Tauschaktio¬ 
nen  im  Freundeskreis 
können  die  Firmen  wegen 
der  Unübersichtlichkeit 
des  Marktes  nur  wenig  un¬ 
ternehmen.  Aber  gegen 
Gewerbetreibende  sind 
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alle  Original-Programn^ 
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Knacker  vor.  Habt  ihr  da  keine  Angst 
erwischt  zu  werden? 

»Ich  persönlich  hab  da  kei¬ 
ne  Bedenken.  Ich  kenn  zum 
Beispiel  den  Datenschutzbe¬ 
auftragten  von  Deutschland 
und  weiß  daher  ziemlich  gut 
Bescheid.  Wir  halten  uns 
auch  jetzt  mit  den  Anzeigen 
zurück  und  tauschen  nur 
noch  im  eigenen  Kreis. 

Aber  ich  kenn  einen,  der 
verdient  10  000  Mark  im  Mo¬ 
nat.  Den  hat  jetzt  Data  Becker 
auf  6000  Mark  verklagt.  Die 
hat  er  halt  gezahlt  und  ver¬ 
kauft  in  Zukunft  keine  Data 
Becker-Programme  mehr. 
Mit  den  anderen  Program¬ 
men  macht  er  allerdings 
munter  weiter  und  verdient 
damit  auch  nicht  weniger. 

Es  gibt  aber  auch  Leute,  die 
haben  gerade  erst  angefan¬ 
gen  und  ein  paar  Programme 
verkauft,  die  stehen  dann 
blöd  da.  Für  diese  Leute  ist  es 
schon  gefährlich,  die  kennen 
sich  noch  nicht  so  gut  aus,  ha¬ 


mit  Zündstoff 


darin,  daß  eine  Firma  den 
Markt  (gemeint  ist  natürlich 
wieder  der  Schwarzmarkt) 
beobachtet  ohne  etwas  zu  un¬ 
ternehmen.  Kauft  sich  diese 
Firma  dann  jemanden  aus  un¬ 
serer  Gruppe,  sagen  wir,  sie 
bieten  ihm  500  000  Mark.  Da¬ 
für  soll  er  als  Kronzeuge  vor 
Gericht  gegen  uns  aussagen. 
Ich  glaub  schon,  daß  da  eini¬ 
ge  schwach  werden  würden. 
Soweit  zu  den  Knackern,  Bei 
den  Raubkopieren  hätten  wir 
gar  nichts  dagegen,  wenn  ei¬ 
nige  Profitmacher  entfernt 
werden.  Wir  Hauptknacker 
wollen  ja  jetzt  Rücksicht  auf 
die  Händler  nehmen  und 
nichts  mehr  weitergeben.  Die 
Firmen  sollten  aber  auf  der 
Suche  nach  den  Schwarzko¬ 
pieren  auch  in  den  eigenen 
Reihen  nachschauen.  Da  gibt 
es  Leute  die  haben  sich  nur 
aus  diesem  Grund  bei  einer 
Firma  einstellen  lassen.  Es 
gibt  genug  Beispiele,  wir  ken¬ 
nen  aber  keine  Namen.« 


Ihr  habt  doch  mittlerweile  ziemlich 
viel  Ahnung  vom  Porgrammieren.  Reift 
da  nicht  der  Wunsch  einmal  selbst  gu¬ 
te  Spielprogramme  zu  schreiben? 

»Momentan  noch  nicht,  das 
ist  einfach  zuviel  Aufwand. 
Wir  haben  noch  einiges  wie 
Schule  oder  Studium  neben¬ 
her  zu  erledigen.  Aber  am 
liebsten  würde  ich  mich  mit 
einer  Menge  Cola  und  Chips 
in  ein  Zimmer  verbarrikadie¬ 
ren,  ein  gutes  Spiel  program¬ 
mieren  und  damit  1,5  Millio¬ 
nen  machen.  Dann  nichts 
mehr  tun,  vollständig  relaxen 
und  das  Geld  ausgeben.  Ist 
das  Geld  aufgebraucht,  wie¬ 
der  ins  Zimmer,  ein  Pro¬ 
gramm  schreiben ...« 

Wir  danken  den  Knackern 
für  dieses  Gespräch.  Dieser 
Artikel  sollte  nicht  als  An¬ 
regung  zum  Programmknak- 
ken  dienen,  sondern  ledig¬ 
lich  einen  kleinen  Einblick  in 
die  Knackerszene  vermitteln. 

(aa) 


ben  nicht  die  richtigen  Bezie¬ 
hungen  und  laufen  dann  in 
die  Falle.« 

Ihr  seid  da  cleverer,  habt  immer 
noch  die  Nase  vorn? 

»Es  ist  sehr  schwierig  für 
die  Verfolger  in  unseren 
Kreis  einzudringen.  Erstens 
sind  diese  Leute  meist  Er¬ 
wachsene  und  zweitens  müß¬ 
ten  sie  sich  auf  dem  System 
sehr  gut  auskennen,  um  mit¬ 
reden  zu  können.  Wenn  da  so 
ein  Kerl  mit  Krawatte  und  An¬ 
zug  in  einen  Laden  kommt,  in 
dem  wir  uns  normalerweise 
treffen,  und  dann  so  komi¬ 
sche  Fragen  stellt  ob  wir  nicht 
dies  oder  jenes  Programm 
hätten,  dann  packen  wir  halt 
ein  und  gehen  wieder.  Die 
stellen  sich  einfach  zu  blöd 


an.« 

Wenn  es  so  nicht  geht,  und  auch  die 
Anzeigenfahndung  nicht  viel  bringt, 
dann  müßt  ihr  euch  doch  relativ  sicher 
fühlen? 

»Tun  wir  auch.  Die  größte 
Gefahr  sehe  ich  allerdings 


mittlerweile  einige  Schrit¬ 
te  eingeleitet  worden. 

Data  Becker  zeichnet 
sich  dabei  besonders  aus. 
Es  werden  alle  Kleinanzei¬ 
gen  in  sämtlichen  Fach¬ 
zeitschriften  mit  der  EDV 
erfaßt  und  ausgewertet, 
Taucht  dabei  ein  Anbieter 
mehr  als  zweimal  auf,  läßt 
man  sich  den  Katalog  oder 
die  Liste  zuschicken.  Die 


geht  die  Angelegenheit 
zum  Rechtsanwalt,  der 
den  Streitwert  festlegt  und 
den  Kopierer  zur  Anzeige 
bringt.  In  mittlerweile 
über  250  Prozessen  hat 
Data  Becker  immer  Recht 
bekommen.  Dadurch  muß 
der  Kopierer  natürlich 
auch  noch  die  Gerichts¬ 
und  Anwaltskosten  tragen, 
und  die  sind  nicht  uner¬ 
heblich.  Dabei  wird  keine 
Rücksicht  auf  das  Alter  ge¬ 
nommen.  Bei  jugendli¬ 
chen  Tätern  müssen  eben 
deren  Eltern  für  den  Scha¬ 
den  aufkommen.  Selbst¬ 
verständlich  wird  die 
Geldstrafe  auch  von  kei¬ 
ner  Haftpflichtversiche¬ 
rung  übernommen. 

Wie  uns  einige  Anrufe 
von  »Kindern«  bestätigen 
wußten  sie  nicht  was  sie  ta¬ 
ten:  »Ich  hab  doch  nur  ein 
paar  Programme  verkauft 
und  jetzt  soll  ich  5000  Mark 
zahlen.  Ich  hab  doch  nicht 
gewußt,  daß  das  strafbar 
ist.  Das  hat  doch  jeder 
gemacht.« 

Es  kann  also  nur  aus¬ 

drücklich  vor  dieser  Art 


der  Taschengeldaufbes¬ 
serung  gewarnt  werden. 
Den  Profitmachern  unter 
den  Raubkopierern  soll 
das  Handwerk  gelegt 
werden,  das  steht  außer 
Zweifel.  Denn  gerade  die¬ 
se  großen  Geschäftema¬ 
cher  sind  mit  dafür 
verantwortlich,  daß  die 
guten  Programme  so  teu¬ 
er  sind.  Irgendwo  müssen 
die  Firmen  die  Verluste 
aus  den  in  kopierter  Form 
in  Umlauf  gebrachten  Pro¬ 
grammen  wieder  wettma¬ 
chen.  und  das  geht  nur 
über  den  Preis.  Traurig 
dabei  ist  aber,  daß  durch 
diese  Profitgeier  die  Ju¬ 
gendlichen  und  Kinder 
animiert  werden,  dassel¬ 
be  zu  tun.  Diese  werden 
dann  mit  der  gleichen 
Härte  bestraft  wie  die  Pro¬ 
fis.  So  kann  sehr  schnell 
ein  Leben  zerstört  wer¬ 
den,  noch  bevor  es  ange¬ 
fangen  hat  eins  zu  werden. 

(aa) 


Empfangsadresse  befin¬ 
det  sich  natürlich  nicht  in 
Düsseldorf.  Sodann  wer¬ 
den  einige  Testkäufe 
durchgeführt  und  bei  po¬ 
sitivem  Ergebnis  eine  Un¬ 
terlassungserklärung  an 
den  Übeltäter  geschickt. 
Hat  der  Raubkopierer  die¬ 
se  unterschrieben  und 
verkauft  dennoch  weiter 
oder  reagiert  nicht,  so 
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Fragen  Sie  doch! 

Selbst  bei  sorgfältiger  Lek- 
rre  von  Handbüchern  und 
Programmbeschreibungen 
bleiben  beim  Anwender  im¬ 
mer  wieder  Fragen  offen.  Viel 
mehr  Fragen  ergeben  sich 
bei  Computer-Interessenten, 
die  noch  keine  festen  Kontak¬ 
te  zu  Händlern,  Herstellern 
oder  Computerclubs  haben. 
Sie  können  der  Redaktion  Ih¬ 
re  Fragen  schreiben  oder 
Probleme  schildern  (am  ein¬ 
fachsten  auf  der  beigehefte¬ 
ten  Karte).  Wir  veranlassen, 
daß  die  Fragen  von  einem 
Fachmann  beantwortet  wer¬ 
den.  Allgemein  interessieren¬ 
de  Fragen  und  Antworten 
werden  veröffentlicht. 


Rechengenauigkeit 

Wieso  kommt  beim  Arbeiten 
mit  der  Sinus-Funktion  beim  VC 
20  ein  anderer  Wert  heraus  als 
mit  meinem  Taschenrechner? 

Albert  Bartels 

Die  meisten  Basic-Interpreter 
rechnen  intern  mit  einer  gerin¬ 
geren  Genauigkeit  als  ein  Ta¬ 
schenrechner.  Besonders  bei 
höheren  mathematischen  Funk¬ 
tionen  kann  es  daher  zu  kleinen 
Abweichungen  kommen. 

Commodore 

64-Programme  auf  VC  20? 

Sind  die  für  den  C  64  abge¬ 
druckten  Programme  auch  für 
den  VC  20  zu  benutzen  ?  Natür¬ 
lich  nur,  soweit  die  benötigte 
Peripherie  vorhanden  ist. 

Andreas  Volz 

Sofern  es  sich  um  reine  Basic- 
Programme  ohne  POKEs  und 
PEEKs  handelt,  gibt  es  keine 
Schwierigkeiten  bei  der  Über¬ 
nahme  von  Programmen  des  C 
64  auf  den  VC  20  oder  umge¬ 
kehrt.  Wegen  der  unterschiedli¬ 
chen  Zeichenzahl  pro  Bild¬ 
schirmzeile  (22  Zeichen  beim 
VC  20,  40  Zeichen  beim  C  64) 
wird  die  Bildschirmdarstellung 
unter  Umständen  jedoch  etwas 
imübersichtlich.  Entsprechende 
Änderungen  bei  den  PRINT- 
Befehlen  sind  jedoch  auch  für 
den  Anfänger  nicht  allzu  schwer 
zu  bewerkstelligen.  Falls  das 
Programm  aber  POKE-Befehle 
oder  Maschinenspracheteile 
enthält,  ist  die  Anpassung  ohne 
Kenntnis  der  jeweils  anderen 
Systemadressen  kaum  möglich. 

«PRINT  #«  abkürzen? 

Ich  habe  das  Programm  » Da¬ 
tenverwaltung «  aus  Heft  4/84 
abgetippt  und  es  läuft  einwand¬ 
frei  bis  auf  die  Speicherung  der 
Daten.  Immer  wenn  ich  »S«  (= 
speichern)  drücke  und  den  Kas¬ 
settenrecorder  auf  »Aufnahme« 
schalte,  erscheint  ein  Syntax- 
Error  in  Zeile  615.  Hans  Mair 


In  Zeile  615  wird  mit  dem 
PRINT  #-Befehl  in  eine  Bandda¬ 
tei  geschrieben.  Sehr  wahr¬ 
scheinlich  haben  Sie  bei  der 
Eingabe  dieses  Befehls  die  Ab¬ 
kürzung  »?»  für  PRINT  verwen¬ 
det,  was  bei  PRINT  #  nicht  zuläs¬ 
sig  ist. 

VC  20  erweitern  ? 

Welche  Speichererweiterung 
ist  ideal  für  den  VC  20? 

Harald  Janning 

Der  VC  20  hat  ja  leider  die  un¬ 
angenehme  Eigenschaft,  daß 
Video-  und  Farbspeicher 


Autostart 


Wie  bringe  ich  meine  Pro¬ 
gramme  dazu,  daß  sie  nach 
dem  Laden  von  Diskette  oder 
Kassette  automatisch  starten? 

Carsten  Bruch 
Beim  Laden  von  Datassette  ist 
ein  Autostart  sehr  einfach: 
Drücken  Sie  gleichzeitig  »Shift« 
und  die  »RUN/STOP«-Taste.  Es 
wird  das  nächste  Programm  von 
Kassette  gelesen  und  sofort  ge¬ 
startet.  Beim  Diskettenbetrieb 
empfiehlt  es  sich,  zunächst  das 
DOS  5.1  von  der  Demo-Diskette 


Video-  und  rarbspeicher  je  lajo  o.i  von  aei  uemo-uisKeue 
nach  Speicherausbau  unter-  zu  \en.  Der  DOS-Befehl  »t» 


schiedliche  Adressen  im  RAM 
einnehmen.  Ideal  erscheint  da¬ 
her  die  Verwendung  einer  Er¬ 
weiterungsplatine  mit  mehreren 
Steckplätzen,  so  daß  man  zwi¬ 
schen  den  verschiedenen 
Speichererweiterungen  um¬ 
schalten  kann.  Eine  andere  Lö¬ 
sung  ist  die  Verwendung  einer 
64  KByte  RAM-Karte.  Zwar  kann 
der  VC  20  mit  soviel  Speicher  ei¬ 
gentlich  gar  nichts  anfangen, 
aber  diese  Karte  kann  alle  denk¬ 
baren  Speichererweiterungen 
simulieren.  Man  spart  sich  so 
das  lästige  Umstecken  der  ein¬ 
zelnen  Erweiterungen. 

Eine  solche  64  KByte  RAM- 
Karte  bietet  zum  Beispiel  die  Fir¬ 
ma  Roos  Elektronic,  Kleiner 
Markt  7,  in  4190  Kleve  an. 

Maschinensprache  laden? 

Wie  kann  ich  mit  dem  Com¬ 
modore  64  Maschinenprogram¬ 
me  laden?  Welche  Hard-  oder 
Software  fehlt  mir  dafür? 

Gundolf  Plischke 

Maschinenspracheprogram¬ 
me  werden  entweder  mit  »LOAD 
"Name",  1,1«  (von  Kassette)  oder 
mit  »LOAD  "Name", 8,1«  (von  Dis¬ 
kette)  geladen. 

Die  Sekundäradresse  »1«  veran¬ 
laßt  den  Computer,  das  Pro¬ 
gramm  nicht  wie  üblich  an  den 
Basic-Anfang  zu  verschieben, 
sondern  es  an  seine  originale 
Startadresse  zu  laden. 


(Hochpfeil),  gefolgt  von  einem 
Programmnamen,  lädt  das  ent¬ 
sprechende  Programm  von  Dis¬ 
kette  und  startet  es  automatisch. 


So  wertet  man  Formeln 
in  Basic-Programmen  aus 

Frage:  ,,Wie  wertet  man  Basic- 
Programme  aus?” 

Ausgabe:  64/5 
Name:  Steffen  Roehn 

Die  Routine  ab  Adresse 
44446/$AD9E  (nicht  $AD9F!) 
wertet  zwar  sowohl  numerische 
als  auch  Stringausdrücke  aus, 
jedoch  muß  beim  Auswerten  ei¬ 
nes  Strings  nach  dessen  Bear 
beitung  derselbe  auch  wieder 
aus  dem  Stringstack  entfernt 
werden,  da  dieser  sonst  über¬ 
läuft  (daher  auch  der  »FORMU- 
LA  TOO  COMPLEX«),  Dies  er¬ 
folgt  durch  Aufruf  der  Routine 
»FRESTR«  ab  Adresse  46755/$ 
B6A3,  wobei  gleichzeitig  auch 
geprüft  wird,  ob  es  sich  bei  dem 
gelesenen  Ausdruck  auch  um 
einen  String  handelt.  Erklärun¬ 
gen  zur  Formelauswertung  und 
anderem,  was  dazu  gehört,  be¬ 
finden  sich  außerdem  im  »Inter¬ 
face  Age  Systemhandbuch  zum 
Commodore  64«  auf  den  Seiten 
10  bis  22. 

Ralph  Babel 


Komma  als  Satzzeichen 

Frage:  ,,Kann  man  bei  einem  In¬ 
putbefehl  das  Komma  als  nor¬ 
males  Satzzeichen  verwen¬ 
den?" 

Ausgabe  64/5 

Name:  Gerhard  Giessmann 

Um  einen  INPUT-Befehl  auch 
Kommata  (und  Doppelpunkte) 
akzeptieren  zu  lassen,  muß  man 
lediglich  als  erstes  Zeichen  ein 
Anführungszeichen  eingeben, 
das  nicht  in  die  Variable  nach 
»INPUT«  übernommen  wird.  Die¬ 
se  Eingabe  läßt  sich  auch  auto¬ 
matisch  über  den  Tastaturpuffer 
simulieren,  indem  man  »POKE 
631, 34:  POKE  198, 1«  vor  den  »IN¬ 
PUT«  setzt.  Jetzt  wird  das  Anfüh¬ 
rungszeichen  von  selbst  ausge¬ 
geben.  Eleganter  ist  es  natür¬ 
lich,  wenn  eine  eigene  Eingabe¬ 
routine  verwendet  wird,  wie  bei¬ 
spielsweise  »INPUTFORM«  und 
»INPUTLINE«  im  EXBASIC  LE¬ 
VEL  II. 

Ralph  Babel 

VC  20-Programme  auf 
CBM  8032 

Frage:  „Wie  kann  ich  Program¬ 
me  von  VC  20  auf  dem  CBM  8052 
zum  laufen  bringen?” 

Ausgabe:  64/5 
Name:  Gerhard  Grahl 

Das  Einlesen  von  Relativpro¬ 
grammen  (abgespeichert  ohne 
Sekundäradresse)  auf  Kassette 
mit  beliebiger  Startadresse  in 
den  CBM  8032  erfolgt  durch 
OPEN  1:  POKE  635,  1:  POKE  636, 
4:  SYS  62456 

Das  Programm  kann  nun  geli¬ 
stet  werden  (allerdings  beherr¬ 
schen  die  Drucker  zum  80er 
meist  nicht  das  Pfundzeichen, 
was  bei  Ausgabe  von  »Control 
Red«  beachtet  werden  muß).  Mit 
Exbasic  Level  II  können  Disket¬ 
tenprogramme  durch  »MERGE« 
in  den  80er  geladen  werden. 

Ralph  Babel 

Nach  einer  Stunde  Fern¬ 
seher  justieren 

Frage:  „Nach  zirka  einer  Stunde 
verliert  mein  Fernseher  die  Far¬ 
be,  was  kann  ich  dagegen  tun?" 
Ausgabe:  64/5 
Name:  Klaus  Heinz 

Die  einfachste  Lösung  dieses 
allgemein  verbreiteten  Pro¬ 
blems  erscheint  mir  im  Nachju¬ 
stieren  der  Sendereinstellung 
am  Fernseher  (was  dann  von  Zeit 
zu  Zeit  mal  geschehen  muß). 

Ralph  Babel 
Das  Problem  kann  auch  an  ei¬ 
nem  verstellten  Trimmer  des  C 
64  liegen.  Dieser  befindet  sich 
auf  der  Rückseite  des  Compu¬ 
ters  und  kann  mittels  eines  klei¬ 
nen  Schraubendrehers  von  au¬ 
ßen  verstellt  werden. 

Guido  Stapel 
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Entfernungsberechnung 
mit  VC  20 

Frage:  „Wie  kann  ich  mit  dem 
VC  20  die  Entfernung  zwischen 
zwei  Koordinaten  auf  der  Ober¬ 
fläche  der  Erde  berechnen?” 
Ausgabe:  64/5 
Name:  Harald  Lang 

Ich  habe  ein  solches  Pro¬ 
gramm  für  C  64  geschrieben.  Es 
läßt  sich  leicht  an  den  VC  20  an¬ 
passen.  Interessenten  können 
sich  an  mich  wenden. 

Info:  Alfred  Born,  Hermannstr.  10, 1000  Ber¬ 
lin  64,  Tel.  030/6219828 

Bildschirm  horizontal 
scrollen 

Frage:  „Kann  ich  mit  dem  C  64 
den  Bildschirm  horizontal  scrol¬ 
len  lassen?” 

Ausgabe:  64/5 
Name:  Andres  Linz 

Das  Scrolling  (insbesondere 
Softscrolling)  ist  im  »Interface 
Age  Systemhandbuch  zum  Com- 
modore  64«  auf  den  Seiten  60  bis 
64  ausführlich  erklärt.  R.  Babel 

Drucker/Floppy-Einschalt- 

Test 

Frage:  „ Mit  welchen  Befehlen 
kann  ich  überprüfen,  ob  der 
Drucker  oder  die  Floppy  einge¬ 
schaltet  ist?” 

Ausgabe:  64/5 
Name:  Ernst  Jeschke 

Eine  Überprüfung,  ob  ein 
Drucker  am  seriellen  Bus  ange¬ 
schlossen  ist,  läßt  sich  beim 
Commodore  64  durch  folgende 
Befehle  erreichen: 

100  POKE  768,  183 
110  OPEN  1,  4:  PRINT  #1 
120  POKE  768,  139 

Da  so  jegliche  Fehlermeldung 
unterdrückt  wird,  kann  nun 
durch  Abfrage  der  Statusvaria¬ 
blen  »ST«  geprüft  werden,  ob  die 
Leerzeile  (oder  jeder  beliebige 
andere  Text  wie  zum  Beispiel 
nicht  druckende  Steuerzei¬ 
chen!)  vom  Drucker  angenom¬ 
men  wurde.  Somit  kann  verhin¬ 
dert  werden,  daß  ein  Pro¬ 
grammlauf  durch  »DEVICE 
NOT  PRESENT«  abgebrochen 
wird.  Ein  Test  auf  Vorhanden¬ 
sein  einer  Diskettenstation  kann 
durch  entsprechende  Pro¬ 
grammänderung  erfolgen. 

Ralph  Babel 

Um  abzufragen,  ob  der 
Drucker  angeschaltet  ist,  muß 
man  eine  Probezeile  an  den 
Drucker  schicken.  Dies  funktio¬ 
niert  nur,  falls  noch  em  anderes 
Gerät  am  seriellen  Port  ange¬ 
schlossen  ist  (Floppy,  Plotter): 

10  OPEN4.4 
20  PRINT  #4,  — i* 

30  PRINT  #4 
40  CLOSE4 

2.  Möglichkeit:  Die  Speicher¬ 
stelle  186  enthält  die  Adrese  des 
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Gerätes,  mit  dem  zuletzt  Daten 
ausgetauscht  wurden.Also  8  bei 
Disk,  1  bei  Datasette  und  4  nach 
dem  Drucken.  Dies  ist  in  Lade¬ 
programmen  gut  verwendbar. 

10  A  =  PEEK(186) 

20  IFB  =  0THEN  B  =  l:LOAD"NA- 

ME",A,l 

30  SYS  Startadresse 

Somit  ist  kein  Umschreiben 
von  Ladeprogrammen  von  Flop¬ 
py  auf  Recorder  oder  umge¬ 
kehrt  mehr  nötig.  Guido  Stapel 

Schachprogramme 

Frage:  „Kennt  jemand  ein  spiel¬ 
starkes  Schachprogramm  für 
den  C  64?” 

Ausgabe:  64/5 
Name:  Peter  Jugl 

Außer  den  genannten  Schach¬ 
programmen  Grandmaster  und 
Sargon  II  gibt  es,  soweit  mir  be¬ 
kannt,  nur  noch  zwei  spielstärke¬ 
re  Programme: 

1.  CHESS  7.0  von  ODESTA  (auf 
Diskette) 

Features:  Spiele  können  auf 
Diskette  abgespeichert  und  wie¬ 
der  eingelesen  werden,  viele 
Meisterpartien  sind  bereits  ge¬ 
speichert,  Blindschachvariatio¬ 
nen  möglich,  Zurücknahme,  Prü¬ 
fung  eines  Feldes  auf  Bedro¬ 
hung  und  so  weiter.  Preis:  zirka 
300  Mark. 

2.  Colossus  2.0  (auf  Kassette) 

Ähnliche  Möglichkeiten  wie 

oben,  aber  durch  die  Kassetten¬ 
speicherung  etwas  begrenzt. 
Preis:  zirka  120  Mark.  Beide  Pro¬ 
gramme  sind  im  Fachhandel  er¬ 
hältlich.  Guido  Stapel 

Vermutlich  wird  Herrn  Jugl 
kein  Computerprogramm  schla¬ 
gen,  so  daß  er  auf  einen  Schach¬ 
computer  zurückgreifen  sollte. 
Die  Spitzenschachcomputer 
schlagen  Computerschachpro¬ 
gramme  übrigens  recht  einfach 
und  überzeugend.  Die  guten 
NOVAG-Schachcomputer  ha¬ 
ben  mich  persönlich  überzeugt, 
da  sie  recht  spielstark  sind,  kei¬ 
ne  Spielfehler  machen  (jeden¬ 
falls  keine  offensichtlichen)  und 
ständig  auf  den  neuesten  Stand 
gebracht  werden  können,  da  sie 
mit  EPROM-Technik  arbeiten. 
Das  heißt:  Gibt  es  ein  neues, 
spielstarkeres  Programm,  so 
kann  man  seinen  alten  Schach- 
compuier  einfach  nachrüsten  ( = 
austauschen).  Detlef  Wacker 

Vbm  Bildschirm  auf  Kas¬ 
sette 

Frage:  „Ich  suche  ein  Pro¬ 
gramm,  um  Daten  vom  Bild¬ 
schirm  (C  64)  auf  Kassette  spei¬ 
chern  und  von  dort  wieder  ab- 
rufen  zu  können” 

Ausgabe:  64/5 
Name:  Thomas  Mandl 

Das  Problem,  welches  sich 
Herrn  Mandl  stellt,  muß  in  zwei 


Kategorien  aufgespalten  wer¬ 
den: 

1)  Abspeichern  des  Bildschirm¬ 
inhaltes  40  x  25  Zeichen: 

Wenn  nur  rechnerspezifische 
Zeichen  (also  keine  hochauflö¬ 
sende  Grafik)  abgespeichert 
werden  sollen,  so  ist  dies  recht 
einfach.  Eine  denkbare  Lösung 
wäre,  die  1000  Zeichen  (40  x  25) 
mit  der  PEEK(X>Funktion  in  ei¬ 
nen  Vektor  einzulesen  und  die¬ 
sen  Vektor  dann  in  ein  sequen¬ 
tielles  File  auf  Kassette  zu  schrei¬ 
ben.  Die  1000  Zeichen  stehen  im 
Computer  ab  Adresse  1024  bis 
Adresse  2023.  Mit  folgendem 
Programm  können  die  Zeichen 
ausgelesen  werden: 

10  DIM  A(1000) 

20  FOR  I  =  1  TO  1000 
30  A(I)  =  PEEK(I  +  1023) 

40  NEXT  I 

Dieser  Vektor  (A)  kann  nun 
einfach  auf  Kassette  geschrie¬ 
ben  und  jederzeit  wieder  gela¬ 
den  werden.  Mit  POKE(X)  kann 
dann  der  Text/die  Grafikzei¬ 
chen  einfach  wieder  auf  den 
Bildschirm  zurückbefördert 
werden.  Eine  Erweiterung  des 
obigen  Programmes  verdeut¬ 
licht  dies: 

50  PRINT  »SHIFT/CLR  HOME« 
(Büdschirm  löschen) 

60  FOR  I  =  1  TO  1000 
70  POKE  1023  +  I.AÖ) 

80  NEXT  I 
90  END 

Wenn  man  noch  die  Farben 
der  1000  Zeichen  abspeichern 
will,  so  muß  man  zusätzlich  noch 
den  Speicherbereich  von  55296 
bis  56295  auslesen.  Das  Verfah¬ 
ren  ist  identisch!  So  kann  immer¬ 
hin  schon  eine  Blockgrafik  (mit 
Grafikzeichen)  in  Farbe  oder  ein 
Ttext  abgespeichert  werden. 

2)  Abspeichern  von  hochauflö¬ 
sender  Grafik: 

Bei  hochauflösender  Grafik  ist 
das  schon  etwas  umständlicher, 
denn  hier  muß  man  das  Bitmu¬ 
ster  der  Grafik  abspeichern. 
Das  Verfahren  ist  identisch  mit 
jenem,  das  eine  hochauflösende 
Grafik  auf  einen  Drucker  bringt 
(Hardcopy).  Vielleicht  schreibt 
ein  anderer  Leser  für  Herrn 
Mandl  ein  entsprechendes  Pro¬ 
gramm,  ich  habe  leider  keine 
Zeit  dazu,  da  ich  im  Abistreß  ste¬ 
he.  Detlef  Wacker 

Um  Daten  direkt  vom  Bild¬ 
schirm  auf  Kassette  übertragen 
zu  können,  muß  man  in  Basic  mit 
Files  arbeiten: 

60000  OPEN  1,1,1, »Büdschirm« 
60050  FOR  I  =  1024  TO  2023 
60100  P  =  PEEK(I):PRINT  #  1,1 
60150  NEXT  I  :  CLOSE  1 

Nun  umgekehrt: 

60000  OPEN  1,1,0, »Bildschirm« 
60050  FOR  I  =  1024  TO  2023 
60100  INPUT  #l,P:POKEI,P 
60150  NEXT  LCLOSE  1 

Guido  Stapel 


Das  DOS  auf  der 
Demodiskette  - 
noch  2  Befehle 

Bei  Ihrem  Bericht  über  das 
DOS  5.1  in  der  Mai-Ausgabe  des 
64'ers  wurden  zwei  Befehle  des 
DOS  5.1  nicht  behandelt. 

Das  ist  einmal  der  Befehl:  % 
Name. 

Dieser  Befehl  lädt  ein  Maschi¬ 
nenprogramm  ein,  das  sonst  mit 
LOAD”Name",8,l  geladen  wer¬ 
den  muß.  Nach  diesem  Befehl 
braucht  auch  kein  NEW  mehr 
eingegeben  werden,  wie  es 
sonst  nach  dem  Laden  eines  Ma¬ 
schinenprogramms  nötig  ist,  um 
keinen  OUT  OF  MEMORY  ER¬ 
ROR  zu  erhalten. 

Der  zweite  der  beiden  weite¬ 
ren  Befehle  ist  >Q. 

Er  bewirkt,  daß  das  DOS  5.1 
verlassen  wird.  Dies  ist  dann 
wichtig,  wenn  ein  anderes  Pro¬ 
gramm  in  den  Bereich  geladen 
werden  soll,  in  dem  das  DOS  5.1 
liegt  (hex  CC00  bis  CF58  =  dez 
52224  bis  53080).  Da  die  Routine 
zur  Überprüfung  der  Eingabe  in 
diesem  Bereich  liegt,  würde  ein 
Überschreiben  dieser  Routine 
in  den  meisten  Fällen  zum  Ab¬ 
sturz  führen. 

Das  DOS  5.1  kann  nach  >  Q  mit 
SYS  52224  wieder  gestartet  wer¬ 
den. 

Frank  Tecker 


Wollen  Sie 
antworten? 

Wir  veröffentlichen  auf  die¬ 
ser  Seite  auch  Fragen,  die 
sich  nicht  ohne  weiteres  an¬ 
hand  eines  guten  Archivs 
oder  aufgrund  der  Sachkun¬ 
de  eines  Herstellers  bezie¬ 
hungsweise  Programmierers 
beantworten  lassen.  Das  ist 
vor  allem  der  Fall,  wenn  es 
um  bestimmte  Erfahrungen 
geht  oder  um  die  Suche  nach 
speziellen  Programmen  be¬ 
ziehungsweise  Produkten. 
Wenn  Sie  eine  Antwort  auf  ei¬ 
ne  hier  veröffentlichte  Frage 
wissen  —  oder  eine  andere 
bessere  Antwort  als  die  hier 
gelesene  —  dann  schreiben 
Sie  uns  doch.  Antworten  pu¬ 
blizieren  wir  in  einer  der 
nächsten  Ausgaben.  Bei  Be¬ 
darf  stellen  wir  auch  den  Kon¬ 
takt  zwischen  Lesern  her. 


64ei-online.net 


Test 


G  16 


Die  Überschrift  wirft  sofort  eine 
Frage  auf:  Nachfolger  von  wem? 
Vom  VC  20  oder  vom  C  64? 

In  den  letzten  Heften  wurde  be¬ 
reits  ausführlich  über  den  Commo- 
dore  264  berichtet  und  dabei  ist  klar 
geworden,  daß  der  264  den  C  64 
nicht  ablösen  soll.  Der  264  ist  etwas 
weiter  weg  vom  Hobby-Computer: 
etwas  weniger  Grafik-  und  Sound- 
Möglichkeiten,  dafür  besseres  Ba¬ 
sic  und  komfortablere  Handha¬ 
bung,  ein  Computer  weniger  zum 
Spielen  als  mehr  zum  ernsthaften 
Arbeiten.  Um  den  neuen  C  116/C  16 
in  die  Gesamtpalette  der  kleineren 
Commodore-Systeme  einordnen  zu 
können,  stellt  man  am  besten  einmal 
die  Eigenschaften  und  Fähigkeiten 
aller  vier  Computer  gegenüber. 
Fangen  wir  mit  den  alten  Bekannten 
an. 

VC  20 


Als  er  auf  den  Markt  kam,  wurde 
er  innerhalb  kürzester  Zeit  zum 
Marktrenner.  Sein  ausgezeichnetes 
Preis/Leistungsverhältnis  war  kon¬ 
kurrenzlos.  Die  Commodore-Strate- 
gie  (Computers  not  for  the  classes 
but  for  the  masses)  kam  voll  zum  Tra¬ 
gen.  In  der  Grundversion  3  KByte 
(heute  lacht  man  fast  darüber),  eine 
fast  professionelle  Tastatur,  ausbau¬ 
fähig,  eine  schnell  wachsende 
Menge  an  Software:  der 
VC  20  wurde  zum  Lieb¬ 
ling  der  deutschen 
Computerszene.  Die 
maximal  mögli- 


Escape-Taste 


viele  Herzen  höher  schlagen.  Wer 
bisher  noch  gewartet  hatte  mit  der 
Anschaffung  eines  Computers,  war 
jetzt  überzeugt,  die  atige  Wahl 
treffen  zu  können.  Und  seine  Fähig- 


Stromanschluß 


Bild  3.  Die  Anschlüsse  des  C  116. 
Sie  dürften  denen  des  C  16  entsprechen. 

che  Anzahl  von  22  Zeichen  pro  Zeile 
und  23  Zeilen  am  Bildschirm  störten 
damals  noch  niemanden.  Die  Auflö¬ 
sung  von  160  x  160  Punkten  erlaubte 
die  Darstellung  befriedigender 
Grafiken.  Der  Preis  von  damals  800 
Mark,  heute  zirka  300  Mark,  ließ  den 
VC  20  für  viele  erschwinglich  wer¬ 
den. 

Commodore  64 

Es  dauerte  aber  nicht  lange,  da 
kam  der  C  64  auf  den  Markt.  Er  ließ 


keiten  ließen  viele  an¬ 
dere  vor  Neid  erblassen: 

64  Kbyte  RAM,  davon  zirka  38 
KByte  frei  für  Basic-Programme,  un¬ 
gefähr  52  KByte  für  Maschinenspra¬ 
che-Programme,  eine  Grafikauflö¬ 
sung  von  satten  320x200  Punkten,  16 
Farben  und  schon  fast  professionel¬ 
le  Synthesizer-Eigenschaften.  Und 
der  Preis  stimmte  auch.  Was  wollte 
man  mehr?  Das  spartanische  Basic 
und  die  etwas  mühselige  Art,  Grafik 
und  Sound  zu  erzeugen,  schreckte 
fast  niemanden;  im  Gegenteil:  eben 
weil  keine  starren  Befehle  die  Mög- 


Ein  etwas  ungutes 
Gefühl  beschlich  uns,  als 
wir  hörten,  daß  einer 
der  neuen  Commodore- 
Computer  eine  Gummi- 
tastatur  besitzen  sollte. 
Commodore  mag  ein 
ähnliches  verspürt  haben, 
denn  zur  Hannover- 
Messe  wurde  im  letzten 
Moment  das  Ruder 
herumgeworfen:  Der  Gum- 
mi-Commodore  C  116 

Videoeingang 


Joystick-Anschlüsse 


wandert  zurück  in  die 
Schublade  und  an  seine 
Stelle  tritt  der  C  16, 
mit  dem  gleichen  Innen¬ 
leben,  aber  mit  der 
bekannt  guten  Tastatur 
des  C  64. 
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C  16 


Return-Taste 


Ausgaben  auf  dem  Bildschirm.  Dies 
alles,  in  Verbindung  mit  dem  kom¬ 
fortablen  Basic  3.5,  macht  den  Com- 
modore  264  interessant  für  den  an¬ 
spruchsvollen  Heim-Anwender. 

C  16 

Dieser  Computer  ist  sozusagen  ei¬ 
ne  verkleinerte  Ausgabe  des  C  264; 
oder  man  kann  auch  sagen,  sein 
kleiner  Bruder  (Bild  2).  Er  besitzt  die 
gleiche  komfortable  Basic-Version 
3.5  und  auch  die  gleichen  Grafik- 
und  Sound-Möglichkeiten.  Eine  ein¬ 
gebaute  (built-in)  Software  wird  es 
jedoch  nicht  geben  und  ein  Windo- 
wing  wird  auch  nicht  möglich  sein. 
Das  liegt  an  der  begrenzten  Spei¬ 
cherkapazität.  Diese  beträgt  nur  16 
KByte  KAM.  Der  C  16  kennt,  ebenso 
wenig  wie  der  264  und  der  VC  20, 
keine  Sprites,  diese  für  Spiele  so  in¬ 
teressanten,  frei  beweglichen  und 


lichkeiten  des  C  64  und  die  Fähig¬ 
keiten  des  Programmierers  ein¬ 
schränken,  kann  jeder  etwas  dazu¬ 
lernen.  Selbst  der  Profi  hat  es 
schwer,  an  die  Grenzen  des  Mach¬ 
baren  zu  kommen.  Auch  beim  C  64 
wächst  die  Anzahl  der  verfügbaren 
Software  ins  Unübersehbare.  Selbst 
CP/M-Software  (zum  Beispiel  Word¬ 
star)  gibt  es  schon  für  den 
C  64. 

C  264 

Dieser  neue  Commodore  ist  ohne 
Zweifel  der  eleganteste.  Sein  Ge¬ 
häuse  ist  sehr  kompakt,  nicht  so  klo¬ 
big  wie  die  anderen. 

Seine  Tastatur  ist  flach  und  erlaubt 
auch  längeres  ermüdungsfreies  Ar¬ 
beiten.  Ein  freier  Speicherplatz  von 
zirka  60  KByte  ermöglicht  das  Ent¬ 
werfen  großer  Programme  (aller¬ 
dings:  Wer  Basic-Programme 


Home/Clr 


Bild  1.  Oer  C  116 
kommt  nicht  auf  den  deutschen  Markt. 

druck  ist  neu.  Selbst  ein  Windowing 
ist  möglich,  die  Darstellung  mehre¬ 
rer  voneinander 
unabhängiger 


Cursortaste  ähnlich  einem  Joystick 


definierbaren  Grafikgebilde  des  C 
64.  Allerdings  beträgt  seine  Grafik¬ 
auflösung  320  x  200  Punkte,  einzeln 
ansteuerbar  und  in  16  Farben  mit  je 
acht  Helligkeitsstufen  über  Basic- 
Befehle  leicht  ansprechbar.  Ebenso 
wie  der  C  64  und  der  C  264  kann  der 
C  16  40  Zeichen  pro  Zeile  darstellen, 
das  übliche  bei  heutigen  Homecom¬ 
putern.  Die  Sound-Fähigkeiten  be¬ 
schränken  sich  auf  zwei  Tongenera¬ 
toren,  einer  für  einfache  Töne,  der 
andere  für  Geräusche  wie  Rau¬ 
schen,  Knallen,  Donnern  und  so  wei¬ 
ter,  selbst  gegenüber  den  Möglich¬ 
keiten  des  VC  20  enttäuschend  ma¬ 
ger  (siehe  auch 
Tabelle  1).  Der 


Reset-Taste 


HELP-Funktionstaste 


schreibt,  die  mehr  als  38  KByte  be¬ 
nötigen,  sollte  einmal  seinen  Pro¬ 
grammierstil  überprüfen,..).  Auch 
die  Benutzung  fest  eingebauter  Pro¬ 
gramme  (Textverarbeitung,  Kalku¬ 
lationsprogramme  oder  andere  Pro¬ 
grammiersprachen)  auf  Knopf¬ 

**  Bild  2.  Der  Commodore  C  16  ist  ins  Gehäuse 
des  C  64/VC  20  gepackt.  Nur  die  Anordnung  der 
Tasten  wurde  geändert. 


Ausgabe  6/Juni  1984 


»  21 


C  16  wurde  in  das  Gehäuse  des  VC 
20/C  64  gesteckt.  Die  Tastatur  ist  von 
der  Mechanik  her  die  gleiche,  le¬ 
diglich  die  Tastenbelegung  ist  geän¬ 
dert  worden.  Die  Cursortasten  be¬ 
finden  sich  jetzt  oben  rechts  und  es 
gibt  nun  vier  davon,  für  jede  Rich¬ 
tung  eine.  Die  RESTORE-Taste  wird 
jetzt  mit  CLR/HOME  belegt.  Die  Ta¬ 
ste  »Pfeil  nach  links«  entfällt  und  wird 
ersetzt  durch  die  ESC-Funk- 
tion. 

Abgesehen  von  der  Tastatur  ist 
der  C  116  mit  seinen  Gummitasten 
übrigens  identisch  mit  dem  C  16 
(Bild  1  +  3  +  4).  Der  C  116  wird  auf 
dem  deutschen  Markt  nicht  erhält¬ 
lich  sein. 

Fazit 

Wer  sich  einen  neuen  Computer 
kaufen  will,  ist  mit  dem  C  64  be¬ 
stimmt  um  einiges  besser  beraten. 
Der  C  64  hat  so  eine  gewaltige  Ver¬ 
breitung  erreicht,  daß  sein  Vor¬ 
sprung  auf  dem  Software-,  Zubehör- 
und  auf  dem  Literaturmarkt  selbst 
innerhalb  eines  Jahres  nicht  zu 
schlagen  sem  wird,  wenn  über¬ 
haupt.  Reicht  das  Taschengeld  nicht 
ganz,  ist  aber  der  C  16  eine  annehm¬ 
bare  Alternative.  Er  soll  um  die  300 
Mark  kosten  und  leistet  einiges 
mehr  als  der  VC  20. 

Wer  jedoch  einen  C  64  besitzt  und 
auf  ein  größeres  System  umsteigen 
will,  sollte  lieber  noch  etwas  warten. 
Gegen  Ende  des  Jahres  dürfte  es 
auch  von  Commodore  einen  IBM- 
kompatiblen  Computer  geben,  mit 
entsprechender  Software,  mit  mehr 
als  64  KByte  Speicherplatz  und  ei¬ 
nem  schnellen  16-Bit-Prozessor. 


100  BE*  BENCHMARK  1 

1 10  A=Tl 

200  fbin^  t0  1000 

400  FOR 
444  NEXTK 

SKfcp»'“ 

500  *****  -LIST 

600  PRiWT 
ready - 

Benchmark  1 


100 
110 
120 
130 
140 
150 
155 
160 

170  B=TI 
ISO  PRINT <B-A)/60 
190  PRINT "E" 

195  RETURN 
200  PRINT 
READY 


REM  BENCHMARK  5 

a=ti 

PRINT^'S“ 

K=0 

K=K+1 

C=K/2*3+4-5 
GOSUB  195 
IFK<1000  TH EN  140 


:  LIST 


Benchmark  5 


300  K=0 
400  K-K+l 

448  ß=TI 1 °°°  THe*  400 

5°0  rrint»e»A)/6° 

■•‘-IST 

Benchmark  2 

100  RE«  BENCHMARK  6 
I20  PRINT "S" 

S  m°M 

140  c-K/2*3+4~5 
%  BOaUB^O  5 
156  EUR  L 

if0  IEKOOOO  THEN  140 
-UlST 

200  PR1^T 

ready . 

Benchmark  6 


com'«040’6 


c  46 


und 


i  TonQe^e8  baUtsXa^e' 

Sne\c^-  JZ-sic  lasWwv. 


ctnl 


OaVen 


des 


C46 


Geschwindigkeits¬ 

vergleiche 

Ich  habe  mit  den  Computern  VC 
20,  C  116,  C  64  und  C  264  einen  Ge¬ 
schwindigkeitsvergleichstest 
durchgeführt.  In  den  nebenstehen¬ 
den  Listings  smd  die  einzelnen 
Benchmarks  abgedruckt.  Diese 
Benchmarktests  (siehe  auch  Tabelle 
2)  beschränken  sich  auf  die  Basic- 
Befehle,  die  alle  Computer  gemein¬ 
sam  haben.  Mit  einigen  Befehlen 
des  neuen  Commodore  Basic  3.5 
könnten  sich  die  Ausführungszeiten 
einiger  Tests  vielleicht  verbessern. 
Dieser  direkte  Vergleich  hat  des¬ 
halb  nur  einen  eingeschränkten 
Aussagewert. 


22  'üiSä? 
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100  REM  BENCHMARK  3 
110  A=TI 
200  PRINT-S- 
300  K=0 
400  K—K+l 

$  IFKOOOO  THEN  400 

r50  PRINT  (B-AW60 

500  PRINT-E" 

600  PRINT  :LIST 
ready. 

Benchmark  3 

llo  ^5^  B^CHMARK  7 

2 20  PRlNT..giI 
2 30  K=0 
140  0IM  M(S) 

2 50  K=K+l 

C=K/2#3+4-5 

*2  5?»  ?« 

190  NEXt  l 

210  B1:^1000  THEM  150 

230  S'B:Ä)  /6° 

230°  sr  LI 
Ready.  -List 


ii°o  «fr I  BENC^RK  4 

£o°  w*-«- 

420 

444  IFK<f«3+4~5 

£  ÄJL  T*N  400 

sostS”'“ 

Ready.  -"List 

Be"chmark  4 

100  REM  BENCHMARK  8 
110  A=TI 

200  PRINTE” 

300  K=0 
400  K=K+1 
420  C=K^2 
4*?2  D=EOG 

ss«ä  400 

450  PRINT (B-A)/60 

500  PRINT“EM  r 

600  PRINT  . L-#Ha' 
READY. 

Benchmark  8 


Benchmark 


Benchmark 

VC  20 

C  116 

C  64 

C  264 

1 

1.15 

1.48 

1.42 

1.98 

2 

8.13 

8.06 

9.72 

10.77 

3 

15.43 

15.30 

18.72 

20.52 

4 

16.88 

15.75 

20.15 

20.98 

5 

18.36 

17.93 

21.85 

23.95 

6 

27.33 

29.21 

32.60 

39.18 

7 

42.87 

46.08 

51.13 

61.75 

8 

97.83 

83.78 

116.63 

111.63 

Tabelle  2.  Geschwindigkeitsvergleich.  Alle  Angaben  in  Sekunden.  Zur  Zeitmessung  wurde  die  rechner¬ 
interne  Uhr  (TI)  genommen. 


Folgende  Gründe  könnte  es  ge¬ 
ben  für  die  unterschiedlichen  Aus¬ 
führungszeiten:  Der  VC  20  ist  prinzi¬ 
piell  der  Schnellste,  weil  er  mit  einer 
etwas  höheren  Taktfrequenz  läuft. 
Der  C116  ist  schneller  als  der  C264, 


weil  sein  Betriebssystem  nicht  ganz 
so  umfangreich  ist  wie  das  des 
C264.  Deshalb  müssen  nicht  so  viele 
Betriebssystem-Routinen  abgefragt 
und  ausgeführt  werden. 

Diese  Tests  (siehe  Listings)  wur¬ 


den  das  erste  Mal  vom  US-Magazin 
»Kilobaud«  veröffentlicht  im  Jahre 
1977.  Lediglich  Benchmark  8  wurde 
später  hinzugefügt. 

Abgesehen  von  Benchmark  1,  das 
eine  einfache  FOR-NEXT-Schleife 
ausführt  und  Benchmark  8,  das  die 
Funktionen  Potenzieren,  Logarith- 
mieren  und  die  Sinus-Funktion  aus¬ 
führt,  sind  die  restlichen  Bench¬ 
marks  so  strukturiert,  daß  durch 
Subtraktion  der  Zeit  des  vorherge¬ 
henden  Tests  sich  die  neu  hinzuge¬ 
fügte  Funktion  isolieren  läßt.  So 
kann  man  zum  Beispiel  durch  Abzie¬ 
hen  Benchmark  4  von  Benchmark  5 
die  Zeit  für  1000  Gosub/Return  fest¬ 
stellen. 

Zu  diesen  Benchmarktests  noch 
ein  paar  Bemerkungen. 

Benchmarktests  können  nie  eine 
allgemeine  Aussage  treffen.  Schwä¬ 
chen  auf  einem  Gebiet  werden 
durch  Stärken  in  anderen  Bereichen 
aufgehoben.  Um  ein  abgerundetes 
Bild  zu  erhalten,  muß  auch  die  Bild¬ 
schirmausgabe  oder  der  Umgang 
mit  Strings  berücksichtigt  werden. 
Die  Geschwindigkeit  bei  der  Grafik¬ 
erstellung  ist  wieder  für  andere  ein 
wichtiges  Kriterium.  Viele  Handi¬ 
caps  lassen  sich  aber  auch  durch 
Maschinensprache-Routinen  umge¬ 
hen.  (gk) 


Lichtgriffel  mit  Software 

Den  hochempfindlichen  Licht¬ 
griffel  von  Madison  Computer 
gibt  es  jetzt  auch  mit  der  entspre¬ 
chenden  Software  wie  QB  Gra- 
fics,  Tic  Tac  Toe  und  einigen  Utili¬ 
ties  für  den  VC  20  oder  Commo- 
dore  64  zu  einem  Preis  von  50  Dol¬ 
lar.  Diese  Programme  eignen 
sich  hervorragend  für  Kinder  im 
Vorschulalter,  da,  sobald  ein  Pro¬ 
gramm  geladen  ist,  keine  einzige 
Eingabe  mehr  über  die  Tastatur 
zu  erfolgen  braucht.  Lediglich 
durch  Zeigen  mit  dem  Lichtgriffel 
auf  den  Bildschirm  werden  Zah¬ 
len,  Buchstaben  oder  Farben 
ausgewählt.  Auch  eigene  Pro¬ 
gramme  sollen,  nach  entspre¬ 
chender  Lektüre  des  Handbu¬ 
ches  erstellt  werden  können. 

Den  Lichtgriffel  mit  der  Softwa¬ 
re  auf  Diskette  oder  Kassette  gibt 
es  bei  Madison  Computer,  1825 
Monroe  Street,  Madison,  WI. 
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VC  20 


Auf  der  Rückseite  des  VC  20  be¬ 
findet  sich  unter  anderem  der 
sogenannte  USER-PORT  mit  sei¬ 
nen  24  Anschlüssen.  Die  Pin-Bele¬ 
gung  mit  Blick  auf  den  Port  zeigt  Bild 
1.  Für  die  folgenden  Experimente 
werden  neben  einem  (beliebigen) 
Masseanschluß  (GND)  und  der  her¬ 
ausgeführten  Betriebsspannung 
von  +5V  (Pin  2)  die  acht  Ein-  bezie¬ 
hungsweise  Ausgänge  des  Ports  B, 
das  heißt  die  Anschlüsse  C  bis  L  be¬ 
nötigt.  Die  übrigen  Anschlüsse  sind 
zum  Teil  nicht  beliebig  für  Experi¬ 
mente  frei,  da  sie  für  andere  Zwecke 
mit  benötigt  werden.  So  führen  die 
Pins  4  bis  6  zum  Joystickanschluß,  Pin 
7  ist  für  den  Lichtgriffel,  Pin  8  für  den 
Kassettenschalter  und  Pin  9  ist  ein 
gepufferter  Serienausgang.  Zwei 
weitere  Anschlüsse,  Pin  B  und  M  mit 
den  Bezeichnungen  CB  1  und  CB  2 
sind  sogenannte  quittierende  Lei¬ 
tungen  (Handshake-Leitungen). 
Über  Port  B  kann  ein  8  Bit  breites 


Wenn  Sie  auf  ein  größeres 
umsteigen,  dann  verschleudern  Sie 
nicht  Ihren  alten  VC  20.  Nutzen  Sie 
statt  dessen  seine  experimentellen 
Möglichkeiten,  beispielsweise  für  die 
bitparallele  Datenübertragung. 
Der  folgende  Artikel  bringt  dazu  einige 
Anregungen  und  eine  über  zwei 
VC  20  zu  spielende  Knobelei. 


Wort  ausgegeben  beziehungsweise 
eingelesen  werden.  Die  Kontrolle 
des  Ports  erfolgt  über  den  Baustein 
6522,  der  unter  anderem  die  Rich¬ 
tung  des  Datenflusses  mit  Hilfe  des 
Datenrichtungsregisters  (37138)  fest¬ 
legt.  Nach  dem  Einschalten  des 
Computers  sind  alle  Leitungen  von 
Port  B  Eingänge. 

Beim  Ausgeben  soll  der  Compu¬ 
ter  an  die  Pins  C  bis  L  (mit  den  Be¬ 
zeichnungen  PB  0  bis  PB  7)  eine  logi¬ 
sche  1  (entspricht  +5  Volt)  bezie¬ 
hungsweise  eine  Null  (0  Volt)  legen. 
Dazu  sind  zwei  Schritte  notwendig: 
a)  Der  ganze  Port  beziehungsweise 
einzelne  Leitungen  von  ihm  müssen 
als  Ausgänge  programmiert  wer¬ 
den.  Der  entsprechende  Basic- 
Befehl  heißt  POKE  37138, X. 

X  =  1 :  PB  0  ist  Ausgang 
X  =  2  :  PB  1  ist  Ausgang 
X  =  4  :  PB  2  ist  Ausgang  (und  so  wei¬ 
ter  bis  X  =  128) 


X  =  3  :  PB  0  und  PB  1  sind  Ausgänge 
X  =  5  :  PB  0  und  PB  2  sind  Ausgänge 
(und  so  weiter  bis  X  =  255). 
b)  Auf  die  als  Ausgänge  vorpro¬ 
grammierten  Leitungen  wird  1  be¬ 
ziehungsweise  0  gegeben.  Der  ent¬ 
sprechende  Befehl  heißt  POKE 
37136, Y. 

Y  =  0  :  auf  allen  Leitungen  liegt  0. 

Y  =  1 :  nur  auf  PB  0  liegt  1 

Y  =  2  :  nur  auf  PB  1  liegt  1 

Y  =  4  :  nur  auf  PB  2  liegt  1  (und  so 
weiter  bis  Y  =  128) 

Y  =  3  :  auf  PB  0  und  PB  1  liegt  1  (und 
so  weiter  bis  Y  =  255). 

Auch  das  Einlesen  von  Port  B  er¬ 
folgt  in  zwei  Schritten: 
a)  Es  muß  darauf  geachtet  werden, 
daß  die  anzusprechenden  Leitun¬ 
gen  nicht  als  Ausgänge  geschaltet 
sind.  Der  entsprechende  Befehl 
heißt  ebenfalls  POKE  37138, X.  Für  X 
ist  jedoch  die  zu  255  komplementäre 
Binärzahl  einzusetzen: 


Bild  3.  Zwei  verschiedene  Ein-/Ausgabe-Platinen 
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X  =  255  :  keine  Leitung  ist  Eingang 
(das  heißt  alle  sind  Ausgänge) 

X  =  254  :  nur  PB  0  ist  Eingang 
X  =  240  :  PB  0 ...  PB  3  sind  Eingänge 
(Rest  Ausgänge) 

X=  15  :  PB  4  ...  PB  7  sind  Eingänge 
X  =  0 :  alle  Leitungen  sind  Ein¬ 

gänge. 

b)  Das  gesamte  angelegte  Wort 
(einschließlich  eventuell  ausgege¬ 
bener  Einsen)  wird  eingelesen.  Der 
entsprechende  Basic-Befehl  heißt 
PEEK  (37136).  Dies  ergibt  Zahlen¬ 
werte  zwischen  0  und  255.  Der  Wert 
255  bedeutet,  daß  an  allen  acht  Pins 
eine  logische  1 ,  das  heißt  +  5  V  liegt. 
Sollen  einzelne  Leitungen  abgefragt 


Programmen  steht  P  0  statt  PB  0  und 
so  weiter. 

Für  die  folgenden  Experimente 
empfiehlt  es  sich,  eine  einfache 
Ein-/Ausgabeplatine  zu  bauen,  die 


beteil  des  Computers)  legen  Taster 
beziehungsweise  Schalter  die  Ein¬ 
gänge  auf  +  5  V.  Bei  offenen  Tastern 
taucht  ein  Problem  auf,  da  der  Com¬ 
puter  ebenfalls  eine  1  einliest.  Des- 


Bild  5.  Logische 
Struktur  des 
Knobelspiels 


P«pi«r 


werden,  so  gewinnt  man  ihre  Werte 
durch  logischen  Vergleich,  den 
man  am  besten  in  einem  Unterpro¬ 
gramm  durchführt: 

1000  P  =  PEEK  (37136) 

1010  PO  =  -((PAND  1)  =  1) 

1020  P  1  =  -  ( ( P  AND  2)  =  2) 

1030  P  2  =  -  ( (  P  AND  4)  =  3) 


1080  P  7  =  -  ( (  P  AND  128)  =  128 
1090  PRINT  P  0;  P  1;  ...  P  7 
Das  Unterprogramm  führt  bitwei¬ 
se  einen  logischen  UND- Vergleich 
durch  und  prüft,  ob  das  jeweilige  Bit 
mit  1  oder  0  belegt  ist. 

Anmerkung:  In  den  folgenden 
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das  lästige  Messen  mit  Spannungs¬ 
messer  beziehungsweise  Logikte¬ 
ster  ersetzt.  Einen  entsprechenden 
Schaltungsvorschlag  zeigt  Bild  2. 

Die  Schaltung  ist  so  ausgelegt, 
daß  die  vier  Leitungen  PB  0  bis  PB  3 
als’Äüsgänge  und  die  vier  Leitun¬ 
gen  PB  4  bis  PB  7  als  Eingänge  für 
den  Computer  verwendet  werden. 
Selbstverständlich  sind  andere  Auf¬ 
teilungen  möglich. 

Der  Anzeigeteil  der  Platine  (ent¬ 
spricht  dem  Ausgabeteil  des  Com¬ 
puters)  ist  mit  vier  roten  LEDs  mit 
Vorwiderstand  bestückt.  Bei  200 
Ohm  bleibt  selbst  bei  acht  LEDs  der 
Gesamtstrom  unter  den  zulässigen 
100  mA. 

Im  Ausgabeteil  der  Platine  (Einga¬ 


& 

& 

P»pier 


ÜÖÜ 


Unentschieden 


Sieg  B 


Bild  6.  Flußdiagramm  für  das  Knobelspiel 


halb  wird  durch  die  1  kOhm-Wider- 
stände  das  Potential  auf  logisch  0, 
das  heißt  auf  zirka  0  V  herabgezo¬ 
gen. 

Für  den  Aufbau  eignet  sich  fast  je¬ 
de  Experimentierplatine  im  Europa¬ 
format  mit  Ätzinseln.  Die  Taster  soll¬ 
ten  prellfrei  sein.  Für  den  User-Port 
empfiehlt  sich  der  Doppelstecker 
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CINCH  251-12-90-160  Typ  50  24 
EE-30  (erhältlich  zum  Beispiel  bei 
Hofacker).  Für  die  Zwischenverbin¬ 
dungen  genügen  bei  kurzen 
Strecken  ein  mehradriges  Band  be¬ 
ziehungsweise  10  Einzeldrähte.  Bei 
größeren  Entfernungen  (ab  zirka  2 
m)  empfiehlt  sich  ein  abgeschirmtes 
Kabel  (Mantel  auf  GND).  Bild  3  zeigt 
zwei  verschiedene  Baumuster  der 
Platine. 


Software  zur 
Ein-/Ausgabe 


Einen  Programmvorschlag  für 
das  Ausgeben  beziehungsweise 
Einlesen  zeigt  Listing  1.  Da  im  obi¬ 
gen  Beispiel  P  0  bis  P  3  als  Ausgänge 
und  P  4  bis  P7  als  Eingänge  geschal¬ 
tet  werden  sollen,  wird  zunächst  der 
Befehle  POKE  37138,  15  gegeben 
werden  (15  =  8  +  4  +  2  +  1),  das 
heißt  Bit  1  bis  4  sind  Ausgänge,  der 
Rest  Eingänge. 

Das  Programm  bietet  in  einem 
Menü  zwei  Teilprogramme  an:  Beim 
Ausgeben  wird  durch  Betätigen  der 
Tasten  Z,  X,  C,  V  jeweils  eine  einzel¬ 
ne  1  auf  den  Computerport  gege¬ 
ben,  was  durch  das  Leuchten  der 
entsprechenden  LED  angezeigt 
wird. 

Beim  Einlesen  können  einzelne 
oder  alle  Taster  betätigt  werden. 
Der  Computer  zeigt  sowohl  PEEK 
(37136)  als  Summe  als  auch  die  ein¬ 
zelnen  Bitwerte  an. 


Kopplung  von  zwei 
VC  20 


Will  man  statt  der  beschriebenen 
Ein-/Ausgabeplatinen  einen  zwei¬ 
ten  Computer  verwenden,  so  muß 
er  mit  einer  neunadrigen  Leitung 
(für  8  Bit  und  GND)  angeschlossen 
werden.  Mit  Rücksicht  auf  das  spä¬ 
ter  zu  beschreibende  Spiel  sind  im 
folgenden  vier  Leitungen  für  die  ei¬ 
ne  Datenrichtung,  die  vier  anderen 
für  die  umgekehrte  Richtung  vorge¬ 
sehen.  Außerdem  sind  die  Leitun¬ 
gen  untereinander  gekreuzt  (das 
heißt  Bit  1  von  Computer  A  ist  ver¬ 
bunden  mit  Bit  8  vom  Computer  B). 
Dies  erlaubt  es  später,  für  das  Com¬ 
puterspiel  in  beiden  Computern 
das  exakt  gleiche  Programm  ver¬ 
wenden  zu  können. 

Die  komplette  Verbindung  zeigt 
Bild  4.  Es  werden  die  gleichen 
Stecker  und  Leitungen  wie  oben  be¬ 
nutzt.  Für  Testzwecke  kann  das  Pro¬ 
gramm  von  Listing  2  benützt  wer¬ 


te  REM  KNOBELSPIEL 
20  PRINT 

30  PRINT"  3KNÜBELSPIEL3" 

40  PRINT  PRINT"  SCHERE  STEIN  PPP I ER  "- PRINT  PRINT 

50  PRINT  '• PRINT"  AUTOR  ALBRECHT  LANGEHSTEIN 

>50  FÜR  T“1  TO  8000:  HEXT 

70  POKE  37138,15 

80  POKE  37136,0 

SO  A-0;B-0 

100  REM  VORBEREITUNG 

110  PR INT" ACHTUNG ! " 

115  PRINT" - " 

120  PR I NT " PRIJEFEN  SIE, OB  DAS  VERBINDUNGSKABEL  STECKT."  PRINT 
130  PR INT "SONST  ERST  äBEIDEK  ":PRINT 
135  PRINT"“  RECHNER  a=)USSCHALTEN5" 

140  PRINT"-  KABEL  EINSTECKEN 

145  PRINT"-  PROGRAMM  3'JEU  LADEN .H" : PRINT 

150  PR INT "MONITOR  GEEIGNET  AUF-  STELLEN ! " : PRINT 

155  PR INT "BEI  BILDSTREIFEN  EVT .  UHF-MODULATOREN  DREHEN" 

160  PR I NT " L AUTSTAERKE  EINSTELLEN" 

165  POKE  36878 , 15 : POKE  36875,219 

17©  PRINT"  WENN  ALLES  OK,  a_EERTASTE5  DRUECKEN!" 

1 80  OETA# :  I F  A#=  "  "  THEN  1 80 
190  IFA#“"  "THEN  2O0 
195  GOTO  170 
200  REM  ANWEISUNG 

205  PR INT "3"  : PR INT "SPIEL ANWEISUNG- " 

210  PRINT" - " 

220  PR I NT " WAEHL.EN  SIE  SCHERE, 

230  PRINT "SCHERE  GEWINNT  GEGEN 
240  PRINT "PAPI ER  GEWINNT  GEGEN 
250  PR INT" STEIN  GEWINNT  GEGEN 
268  PR INT "SONST  UNENTSCHIEDEN. 

270  PR I NT " GESAMTS I EGER  I ST , WER 
3©0  REM  START 
305  POKE  36878,0 
310  P0“0:P1“0:P2=0:P3=0 
315  PRINT 

320  PR INT "WENN  OK, TASTE  Fl  " 

330  GETA#:  IFA#«"’"  THEN  330 
348  IFA#“CHR#<:  1 33  >  THEN  350 
345  GOTO  320 

^£36878, 15  =  gOKE  36875,237 

352  FORT“ 1  TO 150: NC 

355  POKE  36873,0 
360  P0= 1 : X= 1 : POKE  37136  ,X 
365  PR  INT"  CI"  :  PR  INT  "AUF  GEGNER  WARTEN!" 

370  GOSUB  1000 
380  IF  P7“l  THEN  400 
390  GOTO  370 
400  REM  WAHL  A 
410  PRINT"CI" 

115  PRINT: PRINT" 

420  PRINT"  F3 . 

422  PRINT"  F5. 

424  PRINT"  F7. 


STFTN  ODER  PAP I ER ! " : PR INT 

PAPIER."  PRINT 

STEIN  ."PRINT 

SCHERE."  PRINT 

PRINT 

ZUERST  3  EINZELSPIELE  GEWONNEN  HAT!" 


BITTE  WAEHLEN! ! 


PRINT 

PRINT 

PRINT 


.SCHERE 
•STEIN 
.PAPIER 

426  PRINT :PRINT"ENTSPR. TASTE  DRUECKEN ! " 

438  GETA#: IFA#-" "THEN  430 

435  I  FA#"»CHR# <  1 34  >  TUEN  460 

440  IFA#»CHR#a35>  THEN  470 

445  I FA#-CHR# < 1 36 >  THEN  480 

450  GOTO  400 

460  Pl=l :X=2:P*= "SCHERE" 

465  POKE  37 1 36, X= GOTO  500 
470  P2= 1 : X-4 : P#- "STEIN  " 

475  POKE  371 36  , X : GOTO  500 
480  P3= 1 : X—8 : P#= " PAP I ER " 

485  POKE  37 1 36, X: GOTO  500 

509  REM  EIN  B 

5G5  POKE  36878 ,15  =  P0KE36875 ,219 

510  GOSUB  1000 

520  IF  P4= 1  OR  P5=l  OR  P6=l  THEN  540 
530  GOTO  510 
540  POKE  36878,0 

600  REM  VERGLEICH 

601  IF  P6=l  THEN  605 

602  IF  P5“ 1  THEN  606 

603  IF  P4= 1  THEN  607 

605  0#- "SCHERE" : GOTO 

606  Q#- " STE I N  " : GOTO 

607  Q#— "PAPIER" : GOTO 
610  IF  Pl=l  AND  P6= 1 

IF  P2= 1  AND  P3-1 


PRINT  PRINT 
PRINT 
PRINT 
PRINT 


620 
630  IF  P3-1 
640  IF  Pl-1 
IF  P2=l 
IF  P3-1 


650 

660 


AND 
AND  P4 
AND  P6 


P4— 1 
1 
1 


AND  P5-1 


610 

610 

610 

THEN  710: REM  REMIS 
THEN  710 
THEN  71© 

THEN  740: REM  SIEG  A 
THEN  740 
THEN  740 
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670  IF  Pl  =  l  FIND  F'5=  1  THEN  770  •  REM  SIEG  E 

630  IF  P2=l  AND  P4=l  THEN  770 

690  IF  P3=l  FIND  P6=l  THEN  770 

700  REM  ERGEBNIS 

710  REM  REMIS 

712  PR I NT " □" : PR I NT " S I E  HATTEN  "  ;  P* 

714  PRINT: PRINT" IHR  GEGNER  ";GS 
720  PR INT  PRINT"  ALSO  UNENTSCHIEDEN" 

730  GOTO  800 

740  REM  SIEGER  SELBST 

742  PR I NT " □" : PR I NT " S I E  HATTEN  " ; P* 

744  PRINT: PRINT" IHR  GEGNER  ";Q$ 

750  PRINT :PRINT"SIE  HABEN  GEWONNEN!  " 

760  A"A+ 1 : GOTO  800 

77©  REM  SIEGER  GEGNER 

772  PR I NT " : PR I NT “ S I E  HATTEN  "  ;  PS 

774  PRINT: PRINT" IHR  GEGNER  ";Q$ 

780  PRINT  PRINT"GEGNER  HAT  GEWONNEN!" 

790  B=B+ 1 : GOTO  800 

800  REM  ZAEHLEN 

801  IF  A=B  THEN  805 

302  IF  A>B  THEN  806 

303  IF  A<B  THEN  3©7 

805  S*="  UNENTSCHIEDEN."  : GOTO  810 

806  S*="  FUER  SIE!  ":GOTO  81© 

807  S*="  FUER  GEGNER!  " : GOTO  810 

810  PR INT: PR INT: PRINT "SPIELSTAND: " : PR INT 
320  PRINT  A; " : " ; Bi S$ 

850  IF  A=3  THEN  900 
860  IF  B=3  THEN  930 
870  GOTO  300 
900  REM  GESAMTSIEG 

910  PRINT  PRINT "SIE  HABEN  DAS  SPIEL": PR INT 
9 1 5  PR I NT " M I T " ; A ; " : " ; B ; " GEWONNEN ! " 

920  GOSUB  1100 
925  GOTO  950 


den,  wenn  wechselweise  der  Pro¬ 
grammteil  Einlesen  beziehungswei¬ 
se  Ausgeben  gewählt  wird.  Es  kann 
jedoch  auch  (nach  POKE  37138,  X 
mit  POKE  37136,  X  ausgegeben  und 
mit  PRINT  PEEK  (37136)  im  Direkt¬ 
mode  gearbeitet  werden. 


Knobelspiel 

Schere/Stein/Papier 

Das  Spiel,  das  zwischen  zwei  Spie¬ 
lern  über  zwei  miteinander  verkop¬ 
pelte  Computer  gespielt  wird,  soll 
neben  seinem  Unterhaltungswert 
den  Datenaustausch  zwischen  zwei 
Computern  zeigen.  Weiterhin  zeigt 
es  das  Arbeiten  mit  dem  logischen 
Befehlen  AND  und  OR. 

Üblicherweise  wird  das  Knobel¬ 
spiel  nach  folgenden  Regeln  ge¬ 
spielt:  Die  beiden  Spielpartner  zei¬ 
gen  auf  Kommando  zwei  ausge¬ 
streckte  Finger,  bedeutet  Schere, 
oder  die  flache  Hand  (Papier),  oder 
die  geballte  Faust  (Stein).  Es  gewinnt 
Schere  gegen  Papier  (die  Schere 
schneidet  das  Papier),  Stein  gegen 
Schere  (der  Stein  schleift  die  Sche¬ 
re)  und  Papier  gegen  Stein  (das  Pa¬ 
pier  hüllt  den  Stein  em).  Damit  sind 
Sieg,  Unentschieden  und  Niederla¬ 
gen  möglich.  Gesamtsieger  ist,  wer 
zuerst  drei  Einzelspiele  gewonnen 
hat. 

Die  logische  Struktur  des  Spiels 
zeigt  Bild  5.  Man  erkennt  einen 
recht  großen  Aufwand  an  UND-  be¬ 
ziehungsweise  ODER-Schaltungen. 
Dabei  ist  bei  der  gezeigten  Schal¬ 
tung  noch  nicht  verhindert,  daß  ein 
Spieler  gleichzeitig  mehrere  Einga¬ 
ben  wählt.  Außerdem  fehlen  noch 
die  Zählschaltungen  und  ein  Takt¬ 
geber.  Wegen  des  hohen  Aufwan¬ 
des  an  Logikbausteinen  bietet  sich 
eine  Computerschaltung  mit  ent¬ 
sprechendem  Programm  an.  Die 
Grundstruktur  mit  den  logischen 
Befehlen  statt  den  UND-Verknüp¬ 
fungen  sieht  folgendermaßen  aus: 
610  IF  A  1  =  1  AND  B  1  =  1THEN710 
(Schere  A  —  Schere  B) 

620  IFA  2  =  1  AND  B  2  =  1THEN710 
(Stein  A  —  Stein  B) 

640  IF  A  1  =  1 ANDB3  =  1THEN740 
(Schere  A  —  Papier  B) 

670  IFA  1  =  1  AND  B  2  =  1THEN770 
(Schere  A  —  Stein  B) 

710  REM  UNENTSCHIEDEN  :  END 
740  REM  SIEG  A  :  END 
770  REM  SIEG  B:  END 

Die  bei  den  statischen  Verknüp- 
fungsgliedem  folgenden  ODER- 


93©  PRINT: PRINT" SIE  HABEN  DAS  SPIEL" = PRINT 
935  PR  I  NT "  M I T  ";  A B ;  "  VERLOREN  !  " 

94©  GOSUB  1200 
945  GOTO  950 
958  PRINT -PRINT 

952  PR INT= PR INT: PRINT"  NOCH  EINMAL?  J/N  " 

955  PRINT:  PRINT"  j  ODER  N  EINGEBEN  !"  .  ..  ^  OnUTiaS»» 

960  GETA#: IFA#=" "THEN  968 
965  IFA*="J"  THEN  980 
370  IFAf ="N"  THEN  1300 
975  GOTO  95© 

380  PRINT 
985  A=0 : B=0 
930  GOTO  360 
IGO©  REM  PEEK  IN 
101O  P=PEEK<37136> 

1020  P4=— < <P  AND  16>=  16> 

1030  P5=— <  <P  AND  32 >=  32  > 

1040  P6=— <<P  AND  64  >=  64 > 

1050  P7=— <<P  AND  128>=128> 

1060  RETURN 
1100  REM  MUS IC  A 
1110  POKE  36878,15 
1115  FORL=l  TO  10 
1120  FOR  M“ 180  TO  235  STEP  2 
1125  POKE  36875, M 
1130  FOR  N= 1  TO  10 
1 1 35  NEXT  N 
1140  NEXT  M 
1145  POKE  36875,0 
1150  FOR  M=1  TO  100 
1155  NEXT  M  . 

1160  NEXT  L 
1165  POKE  36878,0 
1190  RETURN 
1200  REM  MUS IC  B 
1210  POKE  36873,15 
1220  FOR  M— 240  TO  127  STEP  -1 
1230  POKE  36875  .41 
1240  FOR  T=1  TO  8©  NEXT 
1250  NEXT  M 
1260  POKE  36378,0 
1290  RETURN 
1300  REM  SCHLUSS 
1310  PR INT "3" 

1 320  PR I NT "  I CH  BEDANKE  M I CH ! " : PR I NT : PR I NT 
1330  PRINT"  AUF  WIEDERSPIELEN! !  " 

1350  END 

RE ADV . 


Listing  1.  Programm  für  das 
Knobelspiel  zwischen  zwei  VC  20 
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1 0  PR  I  NT  "  ZT  ••  REM  VGRBERE I TUN6 
20  REM  PB0..PA3  OUT 
36  REM  PB4..PB7  IN 
40  PÜKE  37138,15: pQKE  37 1 36 , 0 
50  PR  I  NT  "fl...  AUSGEBER  "  :  PR  I  NT  :  PR  I  NT 
60  PR I NT "E . . .EI NOEBEN " 

70  GETA* : IFA*=""THEN  70 
30  IFR$="ft"THEN  200 
90  IFfi*=”E"THEN  450 
100  GOTO  50 
110  REM  FlUSGFIBE 
1 20  P0=0 : P 1 =0 : P2=0 : P3=0 : X=0 
1 30  PR I NT : PR INT: PR i NT " NOCH  E I NMRL? 

140  GET  R-f :  IF  A*=""  THEN  146 
150  IFRi="J "THEN  200 
160  I Ffl#= " N " THEN  180 
170  GOTO  130 
180  POKE  37136,9 
130  END 
200  PR INT "3" 

210  POKE  37 136, X 
220  PRINT = PRINT 
230  PR INT "2  X  C  V  EINGEBEN!" 

240  PRINT: PRINT 
250  GET  R$ : IFR*=""THEN  250 
260  IFR*="Z"  THEN  310 
270  IFR*="X"  THEN  330 
2S0  IFA*="C"  THEN  350 
290  I FRf = " V "  THEN  370 
300  GOTO  230 
310  PO= 1 : X= 1 
320  GOTO  400 
330  Pl  =  l  •’  X=2 
348  GOTO  400 
350  P2= 1 : X=4 
360  GOTO  400 
370  P3= 1 : X=8 
380  GOTO  400 
400  PR I NT " P8= " ; P0 , 

410  POKE  37136  .-X 

420  GOTO  110 

450  REM  EINGABE 

460  PRINT"3" : GOSUB  500 

470  PR I NT " P=F'EEK £37 1 36 )  =  "  P  =  PRINT 

480  PR  I  NT  ”  F'4=  "  P4  ,  "  P5=  "  ;  P5  ,  "  P6=  "  ;  P6  ,  "  P7^ 

49©  FOR  T= 1  TO  400 : HEXT : GOTO  450  END 

500  REM  PEEK  IN 

510  P=PEEK<37136> 

520  P4=-< CPRND  1 6 > =  16) 

530  P5=-< CPRND  32)=  32) 

540  P6=-< CPRND  64)=  64) 

550  P7=-C CPRND 128)=  128) 

56G  RETURN 

RERDV . 


Listing  2.  Programm  zum  Ein-/Auslesen  über 
den  Userport  am  VC  20 


vorgeschalteten  Blöcken,  nämlich 
einer  Überprüfung  der  Hardware 
und  einer  Kurzbeschreibung  des 
Spieles.  Nach  der  Aufforderung, 
die  o.k.-Taste  zu  drücken,  geht  es 
weiter,  wenn  beide  Spielpartner 
dies  getan  haben. 

Es  folgt  die  Aufforderung,  eine 


J/N" 

Taste,  bedeutet  Schere  oder  Stein 
oder  Papier,  zu  wählen.  Haben  bei- 

SIE  HATTEN  SCHERE 

SIE  HATTEN  SCHERE 

SIE  HATTEN  PAPIER 

IHR  GEGNER  SCHERE 

IHR  GEGNER  PAPIER 

IHR  GEGNER  SCHERE 

ALSO  UNENTSCHIEDEN 

SIE  HABEN  GEWONNEN! 

GEGNER  HAT  GEWONNEN1 

SPIELSTAND: 

SPIELSTAND: 

SPIELSTAND: 

O  :  O  UNENTSCHIEDEN. 

1  :  O  FUER  SIE! 

2  :  3  FUER  GEGNER1 

SIE  HABEN  DAS  SPIEL 

MIT  2  :  3  VERLOREN! 

Bild  7.  Hardcopy  des  Spielablaufs 
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Schaltungen  werden  im  Computer¬ 
programm  dadurch  realisiert,  daß 
von  drei  Stellen  aus  an  die  entspre¬ 
chende  Einsprungstelle  gesprun¬ 
gen  wird. 

Der  logische  Befehl  OR  wird  an 
anderer  Stelle  benötigt,  Die  Zeilen 
510  GOSUB  1000  :  REM  EINLESEN 
520  IF  B  1  =  1  OR  B2  =  1  OR  B  3  = 
1  THEN  540 
530  GOTO  510 
540  REM  VERGLEICH 
erlauben  ein  Weitergehen  im  Pro¬ 
gramm,  wenn  der  Spielpartner  B  ei¬ 
ne  beliebige  Eingabe,  Schere  oder 
Stein  oder  Papier,  gemacht  hat. 

Anmerkung:  Für  A  1  bis  B  3  steht 
im  Listing  P  1  bis  P  6  (nach  Bild  4). 

Vorausgesetzt  wurde,  daß  für  bei¬ 
de  Computer  (als  A  und  B  bezeich¬ 
net)  das  exakt  gleiche  Programm 
verwendet  werden  soll  (also  kein 
Master-  beziehungsweise  Slave- 

28  » 


Programm).  Die  jeweilige  Ausgabe 
Schere/Stein/Papier  soll  als  logi¬ 
sche  1  über  die  Ausgänge  P  1 ,  P  2 
und  P  3  ausgegeben  werden  bezie¬ 
hungsweise  vom  entgegengesetz¬ 
ten  Computer  über  die  Eingänge  P 
4,  P  5  und  P  6  eingelesen  werden. 
Um  das  Spiel  synchron  zu  halten, 
wird  das  »o.k.«-Signal  benutzt,  das 
über  PO  ausgegeben  beziehungs¬ 
weise  über  P  7  eingelesen  wird.  Hat 
zum  Beispiel  Spielpartner  A  die  o.k.- 
Taste  betätigt,  so  läuft  das  Pro¬ 
gramm  erst  weiter,  wenn  auch  B 
sein  o.k.  signalisiert  hat.  A  kann  jetzt 
Schere,  Stein  oder  Papier  wählen. 
Wieder  muß  gewartet  werden,  bis 
auch  B  seine  Wahl  getroffen  hat. 
Der  synchrone  Verlauf  des  Spiels 
wird  durch  akustische  Signale  un¬ 
terstützt.  Das  vollständige  Struktur¬ 
diagramm  zeigt  Bild  6. 

Das  Programm  beginnt  mit  zwei 


de  Spieler  dies  getan,  so  überprüft 
jeder  Computer,  wer  gewonnen  hat 
beziehungsweise  ob  das  Einzelspiel 
unentschieden  endete.  Zwischener¬ 
gebnis  und  Zwischenstand  werden 
angezeigt.  Jeder  Computer  addiert 
für  sich  die  Siegpunkte  von  Spieler 
A  beziehungsweise  B.  Nach  Errei¬ 
chen  von  drei  Siegpunkten  endet 
das  Programm  je  nachdem  mit  einer 
aufsteigenden  beziehungsweise  ab¬ 
fallenden  Tonfolge.  Auf  Wunsch 
kann  das  Spiel  (ohne  die  Einleitung) 
wiederholt  werden.  Drei  Hardco¬ 
pys  aus  dem  Spielverlauf  zeigt  Bild 
7.  Das  vollständige  Programm  zeigt 
Listing  1. 

—  Für  die  Eingabe  o.k.,  Schere, 
Stein  beziehungsweise  Papier  sind 
im  Programm  die  Funktionstasten 
Fl  ...  F  4  vorgesehen.  Dabei  ist  zu 
beachten,  daß  diese  Tasten  nicht 
schon  anderweitig  belegt  sind  (zum 
Beispiel  beim  Programmierhilfemo¬ 
dul).  Eine  Umprogrammierung  auf 
andere  Tasten  ist  leicht  möglich. 

—  Das  Programm  kann  notfalls  auch 
mit  Hilfe  der  eingangs  beschriebe¬ 
nen  Ein-/ Ausgabe-Platine  auf  richti¬ 
gen  Ablauf  getestet  werden. 

—  Das  Knobelprogramm  benötigt  in 
der  vorliegenden  Form  mindestens 
die  3-KByte-Erweiterung.  Bei  Ver¬ 
zicht  auf  die  REM-Zeichen  und  Ver¬ 
wendung  von  Doppelbefehlen  ge¬ 
nügt  die  Grundausführung  des 
VC  20. 

(Albrecht  Langenstein) 
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Bevor  wir  die  einzelnen  Alternati¬ 
ven  betrachten,  sollten  wir  uns 
kurz  mit  den  Grundlagen  der 
Speicherung  auf  Band  befassen.  Die 
Übertragungsgeschwindigkeit  der 
Daten  wird  in  Baud  angegeben.  Ein 
Baud  bedeutet  die  Übertragung  ei¬ 
nes  Bits  pro  Sekunde.  Die  Daten  wer¬ 
den  durch  bestimmte  Frequenzen 
übertragen,  die  der  Computer  er¬ 
kennen  und  interpretieren  kann.  Da¬ 
bei  muß  ein  bestimmter  Takt  einge¬ 
halten  werden,  damit  die  einzelnen 
Bits  als  solche  erkannt  werden  kön¬ 
nen.  Kommt  es  im  Bandlaufwerk  zu 
Geschwindigkeitsschwankungen , 
so  können  die  Bits  nicht  richtig  inter¬ 
pretiert  werden,  und  es  kommt  zu 
Ladefehlem.  Daher  ist  bei  der  Beur¬ 
teilung  von  Bandlaufwerken  die 
Laufgenauigkeit  der  Antriebsmoto- 
re  ein  entscheidender  Faktor,  den 
man  nicht  vernachlässigen  darf. 

30  3^3? 


Für  die  Commodore-Computer 
wird  vom  Hersteller  selbst  ein  Band¬ 
laufwerk  mit  dem  Namen  Datasette 
angeboten  (Bild  1,  links). 


Die  gute,  alte  Datasette 


Mit  dem  Preis  von  155  Mark  ist  die 
Datasette  der  billigste,  von  Commo- 
dore  angebotene  Datenspeicher.  So 
werden  sich  viele  Kunden  bei  dem 
Kauf  ihres  Computers  durch  diesen 
Aspekt  haben  leiten  lassen,  da  man 
als  Neuling  auf  dem  Computer¬ 
markt  meist  Angaben  über  Übertra¬ 
gungsgeschwindigkeit  gar  nicht  ein- 
ordnen  kann. 

So  kommt  das  böse  Erwachen  erst, 
wenn  man  größere  Programme  la¬ 
den  oder  speichern  will.  Man  sitzt 
vor  seinem  Büdschirm  und  wartet, 
und  wartet,  und  wartet... 


Bei  dem  Programm  »Zauber¬ 
schloß»,  (siehe  Happy-Computer, 
Ausgabe  2/84),  dessen  Volumen  zir¬ 
ka  18  KByte  umfaßt,  beträgt  die  La¬ 
dezeit  über  sechs  Minuten.  Da  die 
Datasette  über  ihren  Anschluß  ver¬ 
hältnismäßig  viel  Strom  benötigt, 
kann  es,  wenn  andere  Geräte  mit  an¬ 
geschlossen  sind,  zu  Ladefehlern 
kommen,  und  man  muß  den  gesam¬ 
ten  Ladevorgang  wiederholen.  Dies 
ist  besonders  bei  längeren  Pro¬ 
grammen  sehr  ärgerlich. 

Trotz  dieser  Mängel  ist  die  Data¬ 
sette  eine  preiswerte  Alternative  ge¬ 
genüber  den  sehr  viel  teureren 
Floppy laufwerken.  Man  muß  bei 
der  Arbeit  mit  der  Datasette  nur 
sehr  viel  Zeit  mitbringen. 

Der  Markt  für  Interfaces,  mit  de¬ 
nen  man  seinen  eigenen  Recorder 
an  den  Computer  anschließen  kann, 


1 


Die  Schaltung 


Bild  1.  Die  Data- 
sette,  der  Data- 
Kassettenrecorder 
und  ein  Eigenbau- 
Interface  für  han¬ 
delsüblichen  Kas¬ 
settenrekorder 


gabevorgang  jedoch  werden  diese 
Rechtecke  zu  einem  sinusförmigen 
Signal  verformt.  Diese  Daten  kann 
der  Computer  nicht  mehr  richtig  in¬ 
terpretieren.  Um  dies  zu  vermeiden, 
ist  eine  kleine  Schaltung  erforder¬ 
lich,  die  bei  der  Datasette  bereits 
eingebaut  ist. 

Ferner  besitzt  diese  einen  kleinen 
Schalter,  der  beim  Drücken  einer 
Taste  geschlossen  wird.  Daher  kann 
der  Computer  feststellen,  ob  eine 
Taste  gedrückt  wurde. 

Mit  etwas  Geschick  und  Material 
für  zirka  15  Mark  kann  auf  einfache 
Weise  ein  Anschlußkabel  gebaut 
werden. 


wächst  ständig.  Wir  haben  aus  dem 
Angebot  zwei  Interfaces  ausge¬ 
wählt,  um  auch  diese  Möglichkeit 
vorzustellen.  Das  erste  ist  das  Recor¬ 
der  Interface  von  Jeschke  (Bild  2). 
Dieses  Interface  wird  für  49  Mark 
angeboten.  Als  wir  dieses  Interface 
angefordert  haben,  wurde  uns  mit¬ 
geteilt,  nicht  jeder  Recorder  wäre 
damit  anzusteuern.  In  unserem  Test¬ 
betrieb  (hauptsächlich  japanische 
Produkte)  haben  wir  allerdings  kei¬ 
nen  Recorder  gefunden,  der  die 
übertragenen  Daten  nicht  akzep¬ 
tiert  hätte. 

Der  eigene  Recorder 

Bei  der  Handhabung  muß  man  al¬ 
lerdings  einiges  beachten.  So  muß 
man  das  Interface  erst  an  den  eige¬ 
nen  Recorder  anpassen,  um  die  Mc- 
torsteuerung  ausnutzen  zu  können. 
Eine  ausführliche  Anleitung,  wie  die 
Verbindungskabel  angeschlossen 
werden  müssen,  liegt  der  Beschrei¬ 
bung  bei. 


In  der  Produktvorschau  dieser 
Firma  wird  für  Ende  Mai  ein  Steck¬ 
modul  angekündigt,  das  mit  dem  In¬ 
terface  zusammen  bis  zu  zehn  mal 
schnellere  Kassettenroutinen  er¬ 
möglichen  soll. 

Die  Heimwerkererlösung 

Im  Gegensatz  zu  anderen  Heim¬ 
computern  wird  beim  C  64  der  Kas¬ 
settenrecorder  an  einen  speziellen 
Kassettenport  angeschlossen.  Zum 
Anschluß  eines  Recorders  wird  da¬ 
her  ein  spezieller  Stecker  benötigt. 
Dies  ist  schon  der  wesentlichste  Un¬ 
terschied  zwischen  dem  Recorder 
von  Commodore  und  normalen  Re¬ 
cordern.  Der  Computer  erkennt  die 
Daten,  die  vom  Recorder  eingele¬ 
sen  werden  nur  dann,  wenn  sie  in 
Form  von  Rechteckimpulsen  am  Port 
anliegen. 

Beim  »Schreiben»  der  Daten  auf 
Kassette  werden  zwar  Rechteckim¬ 
pulse  aufgenommen,  durch  das 
Band  und  den  Aufnahme-/ Wieder¬ 


Bild  3  zeigt  die  Belegung  der  Kon¬ 
takte  am  Kassettenport  und  die 
Schaltung.  Im  Baustein  SN  7414  sind 
sechs  invertierende  Schmitt-Trigger 
enthalten,  von  denen  zwei  benötigt 
werden.  Ein  Schmitt-Trigger  setzt 
(vereinfacht  ausgedrückt)  ein  Sinus¬ 
signal  in  ein  Rechtecksignal  um. 

Da  wir  invertierende  Schmitt- 
Trigger  haben,  müssen  wir  zwei  ver¬ 
wenden,  damit  die  Polarität  wieder 
stimmt.  Das  Wiedergabesignal  vom 
Recorder  läuft  nun  über  die  beiden 
Schmitt-Trigger  und  erhält  so  wie¬ 
der  seine  ursprüngliche  Form.  Die 
Spannungsversorgung  (+5  Volt) 
kann  direkt  am  Kassettenport  abge¬ 
nommen  werden. 

Die  Schreibleitung,  die  Leselei¬ 
tung  und  die  Leitung  »Kassettenmo¬ 
tor«  vom  Computer  werden  an  Klin¬ 
kenstecker  auf  der  einen  Seite  und 
an  einen  Platinenstecker  auf  der  an¬ 
deren  Seite  angelötet. 

Der  IC  7414  kann  in  den  Platinen- 
stecker  eingebaut  werden.  Dazu 
sind  die  nicht  verwendeten  An¬ 
schlußbeine  des  IC  und  die 
nicht  verwendeten  Lötösen  des 
Steckers  abzuschneiden.  Zu¬ 
nächst  wird  Pin  14  vom  IC  an 
Stift  2  des  Steckers  angelötet 
und  das  IC  senkrecht  gestellt 
(Bild  4).  Pin  2  und  Pin  3  werden 
direkt  am  IC  verlötet.  Von  Pin  4 
wird  eine  Drahtbrücke  nach 
Stift  4  gelötet,  ebenso  von  Pin  7 
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nach  Stift  1  und  Stift  6.  An  Stift  1 
i  kommt  die  Masseleitung,  an  Stift  3 
|  die  Leitung  für  den  Fembedie- 
nungsstecker  (REMOTE),  an  Stift  5 
die  Leitung  für  den  Mikrofonein¬ 
gang.  Am  Pin  1  des  IC  wird  die  Lei¬ 
tung  vom  Ohrhörerausgang  ange¬ 
lötet.  Nun  können  die  Klinken¬ 
stecker  angelötet  und  der  Platinen¬ 
stecker  in  sein  Gehäuse  eingebaut 
werden. 

Der  erwähnte  Schalter  im  Com- 
modore-Recorder  wird  hier 
durch  eine  Drahtbrücke  (Stift 
und  1)  im  Platinenstecker 
fest  auf  »eingeschaltet«  ver- 
l  drahtet.  Wenn  der  C  64  zum 
Drücken  einer  Taste  auffor¬ 
dert,  so  ist  diese  für  den 
Computer  bereits  gedrückt 
und  der  Schreib-/Lesevor- 
gang  beginnt  sofort.  Daher  soll¬ 
ten  die  entsprechenden  Re¬ 
cordertasten  schon  gedrückt 
sein,  bevor  zum  Beispiel  ein 
Programm  geladen  wird.  Es  kann 
auch  ein  kleiner  Schalter  an 
Stelle  der  Drahtbrücke  einge¬ 
baut  werden. 
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Da  der  Recorder  seine  Spannung 
vom  Computer  bekommt,  sollten  die 
Batterien  herausgenommen  oder 
der  Netzstecker  des  Recorders  ab¬ 
gezogen  werden.  Nach  dem 
Schreib-/Lesevorgang  wird  die 
Stromversorgung  für  den  Kassetten¬ 
motor  erst  dann  wieder  freigege¬ 
ben,  wenn  der  Computer  erkennen 
konnte,  daß  am  Recorder  keine  Ta¬ 
ste  mehr  gedrückt  ist.  Da  aber  statt 
des  Schalters  eine  Drahtbrücke  ein¬ 
gebaut  ist,  kann  der  Recorder  nur 
noch  dann  eingeschaltet  werden, 
wenn  der  Computer  es  »will«.  Das 
kann  beim  Umspulen  der  Kassette 
unerwünscht  sein.  Wenn  der  Plati¬ 
nenstecker  gezogen  und  wieder  ge¬ 
steckt  wird,  ist  das  Problem  beho¬ 
ben.  Der  Recorder  sollte  dabei  aus¬ 
geschaltet  sein. 

Der  Zusammenbau  ist  für  einen 
Bastler  recht  einfach.  Wer  jedoch 
keine  Erfahrung  im  Umgang  mit 
dem  Lötkolben  hat,  sollte  den  Auf¬ 
bau  lieber  einem  Freund  überlas¬ 
sen.  Das  Interfacekabel  funktioniert 
ohne  Probleme  auch  bei  den  übri¬ 
gen  Commodore-Computern.  Die 
Bauteile  sind  im  einschlägigen 
Fachhandel  erhältlich. 

Das  Interface  (Bild  1,  Mitte, 
Chinchstecker  und  Interface)  funk¬ 
tioniert  nur  mit  solchen  Recordern, 
die  mit  einer  Spannung  von  4  bis  6 
Volt  betrieben  werden  können  und 
bei  denen  die  Plusleitung  nicht  an 
Masse  liegt. 

Die  meisten  Recorder  erfüllen 
zwar  diese  Vorraussetzung,  doch 
sollte  man  sich  sicherheitshalber 
vergewissern.  Testen  kann  man  dies 
ohne  Gefahr  für  den  Recorder  fol¬ 
gendermaßen:  In  den  REMOTE- 
Eingang  des  Recorders  einen  Klin¬ 
kenstecker  einstecken.  Wenn  der 
Recorder  nun  eingeschaltet  wird,  so 
läuft  er  nicht. 

Dann  die  Batterien  aus  dem  Re¬ 
corder  nehmen  (oder  Netzstecker 
ziehen)  und  eine  4,5  Volt  Flachbatte¬ 
rie  mit  dem  Pluspol  am  Außenstift 
des  REMOTE-Steckers  und  dem  Mi¬ 
nuspol  am  Außenstift  des  MIC- 
Steckers  anschließen.  Der  Recor¬ 
der  muß  nun  wieder  laufen  und  die 
Kassette  sollte  in  der  richtigen  Rich¬ 
tung  abgespielt  werden.  Wenn  das 
nicht  der  Fall  ist,  dann  ist  dieser  Re¬ 
corder  nicht  geeignet. 


Das  Substitutprodukt 


Der  Data  Kassettenrecorder  von 
Nettetaler  Modell  PM-4401  (Büd  1, 
rechts)  tritt  als  direkter  Konkurrent 
der  Original  Datasette  auf.  Der  Preis 
dieses  Gerätes  liegt  bei  109  Mark. 


Leider  hatte  unser  Testgerät  einen 
Fehler,  und  das  neue  Testgerät  hat 
uns  vor  Redaktionsschluß  nicht 
mehr  erreicht.  Ein  Test  wird  nachge¬ 
reicht. 

Der  Superschnelle 

Die  Übertragungsraten  der  bis¬ 
her  vorgestellten  Produkte  sind 
sehr  bescheiden.  Will  man  mit  ih¬ 
nen  arbeiten,  muß  man  viel  Zeit  mit¬ 
bringen.  Dafür  sind  sie  aber  auch 
recht  preiswert. 

Den  stolzen  Preis  von  980  Mark 
muß  man  für  das  Minikassettenge¬ 


lich  gemacht.  So  brauchte  die  Data¬ 
sette  über  sechs  Minuten,  um  dieses 
Programm  zu  laden.  Das  Floppy- 
Laufwerk  1541  benötigt  zirka  51  Se¬ 
kunden.  Lädt  man  das  Programm 
Zauberschloß  mit  dem  Minikasset¬ 
tenlaufwerk,  muß  man  nur  noch  zir¬ 
ka  28  Sekunden  warten. 

Würde  nur  dieser  Zeitvorteil  be¬ 
stehen,  wäre  der  Preis  sicher  nicht 
gerechtfertigt.  Bei  der  FS-9600  han¬ 
delt  es  sich  jedoch  um  ein  »intelli¬ 
gentes»  Gerät.  So  hat  man  hier  alle 
Vorzüge,  die  sonst  nur  mit  einem 
Floppy-Laufwerk  realisiert  werden 
können.  Bei  der  Arbeit  mit  dem  Mi¬ 
nikassettengerät  steht  zum  Beispiel 
ein  Inhaltsverzeichnis  der  Kassette 
zur  Verfügung,  man  kann  Blockwei¬ 
se  editieren  und  es  gibt  eine  »AP- 
PEND»  Funktion,  mit  der  man 
Programme  direkt  auf  der  Kas¬ 
sette  verketten  kann. 

Positiv  ist  auch  zu  werten,  daß  bei 
auftretenden  Fehlem  eine  Statusva¬ 
riable  zur  Verfügung  steht,  aus  der 
man  anhand  einer  Fehlerliste  den 
auftretenden  Fehler  lokalisieren 
und  beseitigen  kann. 


rät  FS-9600  (Bild  5)  von  Lothar  Scha- 
nuel  ausgeben.  Für  680  Mark  ist  die 
Bausatz-Version  dieses  Gerätes  zu 
bekommen. 

Die  Schnelligkeit,  die  dieses  Ge¬ 
rät  an  den  Tag  legt,  ist  mehr  als  ver¬ 
blüffend.  Mit  einer  Übertragungs¬ 
geschwindigkeit  von  9000  Baud 
stellt  die  FS-9600  sogar  das  Floppy- 
Laufwerk  1541  von  Commodore  in 
den  Schatten.  Wenn  wir,  wie  schon 
bei  der  Datasette,  wieder  das  Pro¬ 
gramm  Zauberschloß  heranziehen, 
werden  die  Zeitunterschiede  deut¬ 


Das  Resultat: 
von  15  bis  980  Mark 


Wie  wir  gesehen  haben,  gibt  es 
viele  Möglichkeiten,  Daten  auf  Band 
zu  speichern.  Finanziell  reicht  die 
Palette  von  zirka  15  Mark  für  die 
Heimwerkerlösung  bis  zu  980  Mark 
für  die  schnelle  Minikassette 
FS-9600.  Für  welche  Möglichkeit 
man  sich  entscheidet,  bleibt  wohl 
von  der  Anwendung  und  vor  allem 
vom  Geldbeutel  abhängig. 

(M.Sandweg/rg) 
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Für  den  Anschluß  eines  Druckers 
an  den  C  64  ist  zunächst  nur  der 
serielle  Bus,  an  dem  auch  das 
Diskettenlaufwerk  angeschlossen 
ist,  vorgesehen.  Dieses  Konzept, 
mehrere  Geräte  an  einer  Schnittstel¬ 
le  zu  betreiben,  hält  zum  einen  die 
Anzahl  der  Anschlüsse  am  Compu¬ 
ter  in  Grenzen,  zum  anderen  genügt 
für  die  Verbindung  ein  einfaches 
Kabel.  Des  weiteren  kann  man  sich 
auf  ein  einheitliches  Protokoll  zur 
Datenübertragung  von  und  zu  den 
Geräten  beschränken  (bei  Commo- 
dore  mittels  OPEN,  CLOSE,  CMD, 
PRINT  mit  logischer  Datei-  und  Ge¬ 
rätenummer). 

Der  Nachteil  dabei  ist,  daß  man 
nur  die  von  Commodore  angebote¬ 
ne  Peripherie  direkt  anschließen 
kann,  wie  zum  Beispiel  die  Drucker 
1526,  1525,  1520  oder  den  MPS  801. 
Möchte  man  aber  einen  Drucker  ei¬ 
nes  anderen  Herstellers  wie  zum 
Beispiel  einen  Epson  MX/RX  und 
FX-80  (Bild  1)  anschließen,  ist  es  mit 
einer  einfachen  Kabelverbindung 
oft  nicht  mehr  getan.  Standard  bei 
Druckern  ist  nicht  der  serielle  Bus 
von  Commodore,  sondern  die  Cen¬ 
tronics-  und  die  RS232-Schnittstelle. 
Die  Epson-Drucker  sind  dabei  in 
der  Regel  mit  einer  Centronics- 
Schnittstelle  ausgestattet. 


Die  Lösung  dieses  Anschlußpro¬ 
blems  ist  auf  zwei  verschiedenen 
Wegen  möglich.  Entweder  wird  ein 
vergleichsweise  teures  Interface 
zwischen  C  64  und  dem  Epson  zwi¬ 
schengeschaltet  beziehungsweise 
in  den  Drucker  eingebaut,  oder, 
was  preiswerter  und  flexibler  ist,  es 
wird  der  User-Port  als  Centronics- 
Schnittstelle  programmiert. 

Voraussetzung  dafür  ist  aller¬ 
dings,  daß  der  User-Port  nicht  an¬ 
derweitig  benötigt  wird  (EPROM- 
Brenner,  Modem,  RS232  etc.).  Von 
der  elektronischen  Seite  gibt  es  ge¬ 
gen  eine  Direktverbindung  keine 


Einwände,  solange  der  Eingang  am 
Drucker  den  mit  dem  User-Port  ver¬ 
bundenen  CIA  nicht  mehr  als  mit 
den  im  Datenblatt  spezifizierten  3.2 
mA  im  Low-Zustand  pro  Signallei¬ 
tung  belastet.  Wir  haben  an  einem 
Epson-FX-80-Drucker  einen  Ein¬ 
gangs-Kurzschlußstrom  von  1,6  mA 
gemessen,  womit  ein  sicherer  Be¬ 
trieb  des  CIA  garantiert  ist.  Außer 
dem  beschriebenen  Kabel  ist  keine 
weitere  Hardware  erforderlich. 

Man  benötigt  nun  einen  24poligen 
User-Port-Stecker  (zum  Beispiel 
TRW  251-12-50-17081/350-4SN-9)  so¬ 
wie  einen  36poligen  Centronics- 
Stecker  (zum  Beispiel  Amphenol 
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Bild  1.  Der  Epson-FX-80-Drucker 

Bild  3.  Der  Verkabelungsplan 

Drucker  User-Port 

Pi  n  Nummer  Bezeichnung  Bezeichnung  Pin  Nummer 


1 

STROBE 

PA2 

M 

2 

DATA  1 

PB0 

C 

3 

DATA  2 

PB  1 

D 

4 

DATA  3 

PB2 

E 

5 

DATA  4 

PB3 

F 

6 

DATA  5 

PB 4  S*ER 

□nunap* 

7 

DATA  6 

PB5 

j 

8 

DATA  7 

PB6 

K 

9 

DATA  8 

PB7 

L 

10 

ACKNLG 

FLAG2 

B 

16 

GND 

GND 

A 

57-30360).  Die  Centronics-Konven- 
tion  verlangt  ein  abgeschirmtes  Ka¬ 
bel  und  schreibt  vor,  daß  alle  Signal¬ 
leitungen  mit  einer  eigenen  Signal¬ 
masse-Leitung  verdrillt  werden 
müssen.  Unser  C  64  arbeitet  aber 
trotz  Verzicht  auf  diesen  Aufwand 
bisher  fehlerfrei  mit  einem  FX-80  zu¬ 
sammen. 

Das  Kabel  (Bild  2  und  3):  Es  müs 
sen  elf  Verbindungen  hergestellt 
werden  (Flach-  und  Rundkabel). 


Die  Treibersoftware 


Die  Software  arbeitet  einwandfrei 
mit  Programmen  zusammen,  die  ei¬ 
ne  ASCII-Ausgabe-Option  besitzen, 
wie  dies  bei  den  meisten  Textverar¬ 
beitungsprogrammen  der  Fall  ist.  Es 
soll  hier  auch  lediglich  der  Hard- 
und  Software-Kern  der  Schnittstelle 
dargestellt  werden 
Das  Programm  ist  mit  87  Byte  Län¬ 
ge  sehr  kurz  und  kann  damit  im 


Kassetten-Puffer  ($033C  bis  $03FB), 
oder  wie  hier  im  sonst  ungenutzten 
Bereich  ($02A7  bis  $02FF)  unterge¬ 
bracht  werden.  Es  wirkt  wie  folgt: 
Die  Standard-Zeichenausgaberouti¬ 
ne  des  Betriebssystems,  CHROUT, 
wird  durch  einen  geänderten  Vek¬ 
tor  in  das  Erweiterungsprogramm 
umgeleitet.  Dieses  überprüft,  ob  die 
Ausgabe  über  Gerätenummer  4 
(Standardnummer  für  Drucker)  er¬ 
folgen  soll.  Wenn  nicht,  springt  es 
sofort  in  das  Betriebssystem  zurück. 
Ansonsten  wird  das  zu  übertragen¬ 
de  Byte  an  CIA2  Port  B  gelegt  und 
über  einen  Strobe-Impuls  über  Port 
A,  Bit  2  dem  Drucker  mitgeteilt,  daß 
die  anliegenden  Daten  gültig  sind. 
Der  Drucker  quittiert  den  Daten¬ 
empfang  über  das  Acknowledge- 
Signal.  Dieses  setzt  am  C  64  über 
den  FLAG-2-Eingang  Bit  4  des 
Interrupt-Registers  von  CIA  2.  Der 
CIA  wird  so  programmiert,  daß  da¬ 
durch  aber  kein  Interrupt  ausgelöst 
wird.  Das  Programm  wartet  viel¬ 


mehr,  bis  dieses  Bit  gesetzt  ist,  löscht 
es  beim  Auslesen  automatisch  und 
springt  erst  dann  in  das  rufende 
Hauptprogramm  zurück.  Damit  ist 
ein  voller  Handshake  gewährleistet. 

Aus  dem  Assemblerlisting  (Bild  4) 
geht  eine  Gliederung  in  drei  Ab¬ 
schnitte  hervor: 

1.  Zeile  190-280 

Abfrage,  ob  Ausgabe  über  Geräte¬ 
nummer  4  erfolgen  soll 
Bei  ASCII-Code  13  (Carriage  Re¬ 
turn)  wird  automatisch  noch  ein 
ASCII-Code  10  (Line  Feed)  gesen¬ 
det.  Durch  Weglassen  der  Zeilen 
250  bis  280  wird  kein  automatischer 
Line  Feed  gesendet. 

2.  Zeile  320-420 
Ausgabe  eines  Byte 

3.  Zeile  500-670 

Programmierung  des  CIA2  für  die 
Ausgabe.  Umstellen  des  Ausgabe¬ 
vektors  auf  den  Programmteil  1 

Die  praktischen 
Anwendungen 

Der  Umgang  mit  dieser  Schnitt¬ 
stelle  gestaltet  sich  im  praktischen 
Betrieb  recht  einfach  und  problem¬ 
los.  Das  Programm  wird  in  der  vor¬ 
liegenden  Form  in  den  Bereich 
$02A7  bis  $02FD  geladen  und  durch 
Aufruf  des  Initialisierungsteils  QSR 
$02D4  beziehungsweise  SYS  724)  für 
die  Druckausgabe  vorbereitet.  Das 
kann  zum  Beispiel  der  angefügte 
Basic-Lader  (Bild  5)  übernehmen. 
Man  kann  dann  zum  Beispiel  ein 
Basic-Programm  mit  folgender  Se¬ 
quenz  listen: 

OPEN  1,4  :  CMD  1  :  LIST 

Damit  werden  sämtliche  Daten 
über  den  Drucker  ausgegeben  und 
nach: 

PRINT  #  1  :  CLOSE  1 

werden  die  Daten  wieder  auf  den 

Bildschirm  ausgegeben. 

Man  beachte,  daß  nach  Drücken 
der  Kombination  RUN/STOP  RE- 
STORE  (non  maskable  Interrupt) 
sämtliche  Zeiger  auf  ihre  Standard¬ 
werte  zurückgestellt  sind.  Deshalb 
muß  die  Schnittstelle  durch  SYS  724 
wieder  neu  initialisiert  werden. 

Die  Möglichkeiten,  einen  Drucker 
wie  den  Epson  MX/FX-80  mit  ei¬ 
ner  solchen  Schnittstelle  zu  betrei¬ 
ben,  sind  beinahe  unbegrenzt.  So  ist 
es  beispielsweise  möglich,  ein 
Hardcopy  Programm  zu  schreiben, 
mit  dem  Ausdrucke  in  der  Form  des 
Bildes  6  ausgedruckt  werden  kön¬ 
nen.  Ein  Epson  FX-80  braucht  für  ein 
solches  Bild  etwa  32,  in  doppelter 
Größe  zirka  70  Sekunden.  Auch  ist 
es  möglich,  im  Grafik-Modus  einen 
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C  64 


«)»«  profi'“ss  “ 

2.,q.  02A7 


US£R  P°RT 


centrQriCS 


-SCHNITTSTELLE 


ws56be  ei 


190: 

200: 

210: 

220: 

230: 

240: 

250: 

260: 

270: 

200: 


02A7  40 
02A8  A5 
02AA  C9 

02AC  PO 

02AE  4C 
02B1  60 
02B2  C9 
02B4  BO 
02B6  20 
02B9  A9 


c’hrout 


9A 

04 

03 

CB  P* 


BR 


00 

05 

BB  02 

Oft 


PHft 
UBft 
cnp 
BEQ 

^np 

PLft 

CWP 
bne 
JSR 
UBft 


$9ft 

44 

DR 

*F1CB 

*13 
CENT 
CENT 
*10 


„tS  SU56SBE6EB«1S 
.DRUCKER 


'iiuscfS6EBEN 

3SR  W«  ;  S  NOC«  * 

L0B  s  scwun^'-LE  ^6E8E,‘ 

; , . 

’.  ..  .nnol  c,  SE" 


01  BB  CENT 
00  BB 
FB 

00  BO 
04 

OD  BB  WA*^ 
10 
F9 


320: 
330: 
340: 
350: 
360: 
370: 
38  Ol 
390: 
400: 
410: 
420: 


02BB  BB 
02BE  AB 
02C1  W 
02C3  80 
02C6  09 
02C8  8B 
02CB  AB 
02CE  29 

0200  P° 
0202  1B 

0203  60 


STA 
LOA 
ANB 
STA 
ORA 
STA 
UBA 
ANB 
BES 
CLC 
RTS 


IDOOI 
$dboo 
*$f  B 
*DßOO 

**04 

$D000 

SDBOB 
**10 
warte 


;',K 


neuen  Zeichensatz  mit  near-Letter- 
Quality  zu  entwerfen.  Dieser  druckt 
dann,  zwar  deutlich  langsamer, 
aber  dafür  wesentlich  schöner,  zum 
Beispiel  wichtige  Briefe,  aus. 

Die  Nachteile  dieser  Lösung  sind 
natürlich  immer  im  Verhältnis  zum  fi¬ 
nanziellen  Aufwand  zu  sehen.  So  ist 
es  mit  dem  abgebildeten  Basicpro- 
gramm  nicht  möglich,  die  Steuer- 
und  Grafikzeichen  des  Commodore 
64  auszudrucken.  Auch  der  gezeigte 
Hardcopyausdruck  ist  nur  mit  ei¬ 
nem  zusätzlichen  Programm  zu  rea¬ 
lisieren. 

Bei  weiterem  Interesse  können 
Sie  sich  an  die  Autoren  wenden. 

(A.  Wängler/T.  Krätzig) 


6  Q£R  CE*— -SOWI,1SULU 

I  8ER 

*  _c  PA2 


STROBE 

ftCKNCG 

BUS^ 


PA2  r_ 

$£  «an  '"iSSt‘E 


500: 

510: 

520: 

530: 

540: 

550: 

560: 

570: 

500: 

590: 
feOO: 

610: 
b20: 
630: 
640: 
650: 
660: 
670: 
Ü02A7 

reaot 


„a  1N1T 

0204  78 

s« 

5£88" 

•s 

3's|: 

s:  s  s » 

fflSS» 

02FC  5B 
02F0  60 
02FE 


SEI 

UBA 

STA 

loa 

QRft 

STA 

loa 

QRA 


**FP 

$0003 
*DB02 
**04 
*DB02 
$DB00 

**04 

ct a  *0000 

lda 

STA 


STA 

loa 

STA 

CLl 

RTS 


*326 
I>CHR0uT 
$327 


100  PRINT"LOAD  CENTRONICS-SCHNITTSTELLE  WA I T “ 

105  PRINT: PRINT"  MIT  AUTO-L I NE-FEED " 

110  PRINT"  THOMAS  KRAETZIG  21.2.84“ 

120  PRINT“  BITTE  GEEIGNETES  KABEL  VERWENDEN" 

130  RESTORE 
140  FOR  1=0  TO  86 
150  READ  X  s  POKE  679  +  1  ,  X 
160  NEXT 
180  SYS  724 

190  END 

191  DATA72, 165, 154, 201, 4, 240, 3, 76, 205, 24 1  ,  1 04, 201, 13, 208, 5, 32, 187, 2, 169, 10 

192  DATA141, 1,221 ,173,0,221, 41,251, 141 ,0,221 ,9 ,4, 141,0,221, 173, 13,221, 41 

193  DATA1 6, 240, 249, 24 ,96, 120, 169, 255, 14 1,3, 221, 173, 2, 22 1,9, 4, 14 1,2, 221, 173 

194  DATAO,  22 1,9, 4, 14 1,0, 221, 169, 16, 14 1,1 3, 22 1,1 73, 13, 22 1  ,  1 69, 167, 14 1,38, 3 

195  DATA169.2, 141 ,39,3,88,96 

READY. 


•PORT  B 

\pftT  MS6''"6 


•sr  £«««*  * 1 

„  itSSS* ***** 


Bild  6.  Probeausdruck  einer  Hardcopy 


Bild  5.  Der  Basic-Lader 


36  Üi'äj* 


Ausgabe  6/Juni  1984 
64er-online.de 
64er-online.net 


I 


'  © 

- 


Nachdem  wir  in  der  letzten  Ausgabe  ein  einfaches  Spiel  entwickelt  haben,  das  zum 
Teil  mit  Struktogrammen  dokumentiert  wurde,  bringen  wir  jetzt  den  Rest  des  Listings 
und  eine  Gegenüberstellung  von  Rußdiagramm  und  Struktogramm. 


Diese  Ausführung  des  Spiels  »TIC 
TAC  TOE»  ist  recht  einfach. 
Nach  gründlicher  Überlegung 
könnte  man  dieses  Programm  sofort 
kodieren.  In  der  Praxis  und  mit 
wachsender  Programmiererfah¬ 
rung  werden  die  Aufgaben  jedoch 
bald  umfangreicher  sein.  Professio¬ 
nelle  Programmierer  fertigen  sich, 
bevor  sie  anfangen  zu  kodieren,  ei¬ 
ne  grafische  Darstellung  des  Pro¬ 
grammlösungsweges  an.  Grafiken 
überblickt  der  Mensch  wesentlich 
schneller  als  einfachen  Text  oder  so¬ 
gar  Zahlenkolonnen.  Das  wohl  am 
häufigsten  eingesetzte  grafische 
Hilfsmittel  ist  der  Programmablauf¬ 
plan  (auch  Flußdiagramm,  Blockdia¬ 


10  REM  *****»*#*****»***»***»«»»•»•*** 

20  REM  *  KREUZ  UND  QUER  * 

30  REM  fr****************************** 

90  PRINT "L" 

100  D I MSS ( 9  >  s  D I MBW ( 8  > 

110  GOSUB 1 000 : REM  SPIELFELD  INITIALISIER 
EN 

120  GOSUB2000: REM  ANZEIGEN 

130  GOSUB3000: REM  ZUG  HOLEN 

140  GOSUB2000: REM  ANZEIGEN 

150  GOSUB4000: REM  AUF  SPIELENDE  PRUEFEN 

160  GOSUB5000 : REM  COMPUTER ZUG 

170  GOSUB2000: REM  ANZEIGEN 

180  GOSUB4000: REM  AUF  SPIELENDE  PRUEFEN 

190  ROTnt30 

1000  REM - 

1010  REM  INITIALISIERUNG 
1020  : 

1100  FQRP=1T09 
1110  : SS  <P>  =0 
1120  NEXTP 
1130  RETURN 

2000  REM - 

2010  REM  ANZEIGEROUTINE 
2020  : 

2100  FORP= 1 T09 

2110  :  IFSS<P)=1THENPRINT'*X" ; 

2120  : IFSS (P) =-lTHENPRINT"0" ; 

2130  i IFSS <P>=0THENPR INT". 

2140  : IFINT (P/3) =P/3THENPRINT 
2150  NEXTP 
2160  PRINT: PRINT 
2170  RETURN 

3000  REM - 

3010  REM  SPIELERZUG 
3020  : 

3040  INPUT "GIB  ZUG  EIN  ";P 

3050  IFSS  (PK  >0THENPRINT" DIESES  QUADRAT 

IST  BESETZT" : GOTO3000 

3060  SS(P>=1 

3070  RETURN 

3090  : 


gramm  oder  im  Englischen:  Pro¬ 
gram  Flowchart  genannt).  Es  wird  je¬ 
doch  in  den  letzten  Jahren  immer 
mehr  von  Struktogrammen  (auch 
Nassi-Shneidermann-Diagramm 
oder  NS-Diagramm  genannt)  abge¬ 
löst.  Der  Hauptgrund  war  wohl  die 
Entwicklung  höherer  Programmier¬ 
sprachen,  die  eine  Strukturierung 
eines  Programms  zulassen.  Vor  al¬ 
lem  sind  das  Pascal,  Fortran  77,  Co- 
bol,  und  Pl/1.  Selbst  die  neuesten  Ba¬ 
sic  Versionen  (zum  Beispiel  das  ex- 
tended  Microsoft-Basic  oder,  etwas 
eingeschränkt,  das  Basic  3.5  der 
neuen  ConmQäor5rl§^  564)  be- 
sitzen  Befehle,  die  eme  buukturie- 
rung  eines  Programms  zulassen.  Da¬ 


4000  REM - 

4010  REM  AUF  SPIELENDE  PRUEFEN 
4020  : 

4040  GOSUB6000 
4050  FORP= 1 T08 

4060  :  IFBW (P) =— 3THENPRINT" ICH  GEWINNE"  :  E 
ND 

4070  s IFBW(P)=3THENPRINT"DU  GEWINNST" : EN 
D 

4080  NEXTP 

4090  FORP= 1 T09 

4100  : IFSS<P)=0THENRETURN 

4110  NEXTP 

4120  PRINT "UNENTSCHIEDEN" : END 
4130  i 

5000  REM - 

5010  REM  COMPUTERZUG 
5020  : 

5030  GOSUB6000 
5040  MT=0 
5050  FÜRP=1 T08 

5060  : IFBW  <P>  =— 2THENGOSUB7000: RETURN 
5070  ;  IFBW<P>»2THENMT=MT4-1 
5080  NEXTP 

5090  IFMT=2THENPR INT "AUCH  GUT.  ANGEBER1" 
:END 

5100  I FMT = 1 THENGOSUB8000 : RETURN 
5110  GOSUB9000 
5120  RETURN 
5130  : 

6000  REM - 

6010  REM  SPIELFELD  BEWERTEN 
6020  : 

6030  : 

6040  BW ( 1 ) =SS ( 1 ) +SS ( 2 ) ♦SS ( 3 ) 

6050  BW  <  2  >  =SS  <  4 ) +SS  <  5 ) +SS ( 6  > 

6060  BW ( 3 ) =SS ( 7 ) +SS ( B ) +SS ( 9 ) 

6070  BW ( 4  >  =SS  < 1 ) +SS ( 4 ) +SS ( 7  > 

6080  BW ( 5  >  =SS  <  2  >  +SS ( 5 ) +SS  <  8 ) 

6090  BW(6)-SS(3)+SS(6)+SS(9) 

6100  BW (7) =SS ( 1 ) +SS (5) +SS (9> 

6110  BW (8) =SS (3) +SS (5) +SS (7) 


mit  ist  vor  allem  der  vollkommene 
Verzicht  von  GOTO-Sprunganwei- 
sungen  gemeint.  Im  Gegensatz  zu 
Programmablaufplänen  (PAP)  ist  in 
Struktogrammen  eine  Darstellung 
von  GOTO-Befehlen  nicht  vorgese¬ 
hen  und  wird  somit  auch  nicht  unter¬ 
stützt.  Wer  mit  normalem  Standard- 
Basic  arbeitet,  das  keine  Strukturie¬ 
rungsbefehle  wie  IF..THEN..ELSE, 
REPEAT  UNTIL,  DO  WHILE  und  so 
weiter  kennt,  braucht  dennoch  nicht 
auf  Struktogramme  verzichten. 
Wenn  man  sich  an  die  im  Heft  4/84 
beschriebenen  Regeln  zur  Struktu¬ 
rierunghält,  ist  eine  Anwendung  von 
Struktogrammen  sogar  recht  sinn¬ 
voll. 

Fortsetzung  auf  Seite  40 


6120  RETURN 
6130  : 

7000  REM - 

7010  REM  SIEGZUG 
7020  : 

7040  GOSUB9000 

7050  GOSU86000 

7060  FORP= 1 T08 

7070  : IFBW (P) =— 3THENRETURN 

7080  NEXTP 

7090  GOSUB 10000 

7100  GOTO7000 

71  10  : 

7120  : 

8000  REM - 

8010  REM  SPERREN 
8030  : 

8040  GOSUB9000 

8050  GOSUB6000 

8060  F=0 

8070  F0RP-1T08 

8080  : IFBW <P) =2THENF» 1 

8090  NEXTP 

8100  IFF=0THENRETURN 

8110  GOSUB 10000 

8120  GOTOB000 

B130  : 

9000  REM - 

9010  REM  ZUFALLSZUG 
9020  : 

9040  CM=9#RND(0)+1 
9050  I FSS ( CM ) <  >0THEN9000 
9060  SS (CM) =-l 
9070  RETURN 
9080  : 

9090  : 

10000  REM - 

10010  REM  ZURUECKNEHMEN 
10030  : 

10040  SS (CM) =0 
10050  RETURN 


Listing.  Das  im  letzten  Heft  entwickelte  Spiel  »TIC  TAC  TOE»  als  komplettes  Listing.  Verbessern  Sie  die  Grafik  und  die  Strategie. 


Ausgabe  6/Juni  1984 


64er-online.de 

64er-online.net 


Software 


G  64/VC  20 


■■■ 


1.  OPERATION,  allgemein 

Insbesondere  für  Operationen,  die  im  folgenden 
nicht  besonders  aufgeführt  sind.  Zum  Beispiel:  Be¬ 
rechnungen,  Zuweisungen,  Dimensionierungen  und 
so  weiter 


2.  VERZWEIGUNG 

Ein  Sonderfall  der  Verzweigung  ist  der  program¬ 
mierte  Schalter. 


3.  UNTERPROGRAMM 

Ein  Unterprogramm  muß  nur  einmal  näher  darge¬ 
stellt  werden.  Im  PAP  genügt  dann  der  Hinweis, 
wann  welches  Unterprogramm  eingesetzt  wird. 

4.  PROGRAMMODIFIKATION 

Zum  Beispiel  das  Stellen  von  programmierten  Schal¬ 
tern  oder  das  Ändern  von  Indexregistern. 


5.  OPERATION  VON  HAND 

Zum  Beispiel  Formularwechsel,  Bandwechsel,  Ein¬ 
griff  des  Bedieners  bei  der  Prozeßsteuerung. 


6.  EINGABE,  AUSGABE 

Ob  es  sich  um  eine  maschinelle  oder  manuelle  Ein¬ 
oder  Ausgabe  handelt,  soll  aus  der  Beschriftung 
hervorgehen. 

7.  ABLAUFLINIE,  ZUSAMMENFÜHRUNG 

Vorzugsrichtungen  sind:  von  oben  nach  unten,  und 
von  links  nach  rechts.  Abweichungen  können  durch 
Pfeile  deutlich  gemacht  werden.  Zwei  sich  kreuzen¬ 
de  Ablauflinien  bedeuten  keine  Zusammenführung. 

8.  ÜBERGANGSSTELLE 

Der  Übergang  kann  von  mehreren  Stellen  aus,  aber 
nur  zu  einer  Stelle  hin  erfolgen. 

9.  A  GRENZSTELLE 

Für  A  kann  zum  Beispiel  Beginn,  Ende,  Zwischenhalt 
emgeschrieben  werden. 

BEMERKUNG 

Dieses  Sinnbild  kann  an  jedes  Sinnbild  dieser  Norm 
angefügt  werden. 


Tabelle  1:  Sinnbilder  für  Programmablaufpläne 


Doch  zunächst  möchte  ich  Ihnen 
die  Symbolik  des  PAP  vorstellen. 
Schauen  wir  uns  die  Tabelle  an. 
Hier  sind  die  wichtigsten  und  ge¬ 
bräuchlichsten  Elemente  des  PAP 
aufgeführt. 

Symbol  1:  Bearbeitung 
Man  trägt  Anweisungen  ein;  die 
Schreibweise  der  Eintragung  orien¬ 
tiert  sich  oft  an  der  zu  verwenden¬ 
den  Programmiersprache.  Es  kann 
auch  eine  Gruppe  von  Anweisun¬ 
gen  eingetragen  werden. 

Symbol  2:  Verzweigung 
Wenn  in  einem  Programm  in  Ab¬ 
hängigkeit  einer  Bedingung  der  li¬ 
neare  Ablauf  unterbrochen  werden 
soll,  erfolgt  die  Eintragung  der  Be¬ 
dingung  in  diesem  Symbol. 

Symbol  3:  Unterprogrammaufruf 
Hier  wird  die  Bezeichnung  eines 
Unterprogramms  eingetragen.  In 
Basic  setzt  man  am  Besten  noch  die 
Anfangszeilennummer  dazu. 
Symbol  4:  Programmodifikation 
Hier  trägt  man  eine  Aktion  ein,  die 
den  Ablauf  an  einer  zeitlich  dahin¬ 
terliegenden  Stelle  ändert  (wird  sel¬ 
ten  gebraucht). 

Symbol  5:  Operation  von  Hand 
In  manchen  Programmen  kommt 
es  vor,  daß  an  einer  bestimmten  Stel¬ 
le  die  Diskette  oder  Kassette  ge¬ 
wechselt  werden  muß.  Diese  Aktion 
wird  hier  eingetragen. 

Symbol  6:  Eingabe,  Ausgabe 
Man  benutzt  dieses  Symbol  im¬ 
mer,  wenn  eine  Eingabe-  oder  Aus¬ 
gabeanweisung  im  Programmab¬ 
lauf  auftritt.  Man  trägt  dabei  die  Art 
der  Ein-/Ausgabe  ein  (INPUT  oder 
PRINT  oder  ähnliches)  und  den  Da¬ 
tensatz,  der  gelesen  oder  geschrie¬ 
ben  wird. 

Symbol  7:  Flußlinie 
Sie  verbindet  die  Symbole  mitein¬ 
ander.  Die  Pfeilspitzen  können  weg¬ 
gelassen  werden,  wenn  die  Fluß¬ 
richtung  eindeutig  ist  (normalerwei¬ 
se  immer  von  oben  nach  unten,  von 
links  nach  rechts). 

Symbol  8:  Konnektor,  Übergangs¬ 
stelle 

Die  Eintragung  ist  beliebig.  Die¬ 
ses  Symbol  wird  benutzt,  um  picht 
durch  zu  viele  Flußlinien  die  Über¬ 
sicht  zu  verlieren. 

Symbol  9:  Grenzstelle,  Anschluß¬ 
marke 

Dieses  Symbol  enthält  eine  Be¬ 
zeichnung  von  Programmbeginn 
und  -ende  sowohl  von  Haupt-  als 
auch  von  Unterprogrammen. 
Symbol  10:  Bemerkung 
Falls  der  Platz  innerhalb  eines 
Symbols  nicht  ausreicht,  um  es  zu 
beschriften,  kann  man  mit  diesem 
Symbol  eine  Bemerkung  hinzufü¬ 
gen. 

40  Q3ÖG? 


Unternehmen  gehen  bei  Pro¬ 
grammiervorhaben  immer  mehr  da¬ 
zu  über,  anstatt  von  Flußdiagram¬ 
men  Struktogramme  einzusetzen. 
Sie  zwingen  den  Programmierer  zu 
einer  übersichtlichen  Programmie¬ 
rung  und  erlauben  es  ihm  nicht, 
durch  viele  GOTOs  das  Programm 
»undurchsichtig»  zu  machen.  Wenn 
man  Struktogramme  verwendet, 
kann  man  auf  Programmablaufplä¬ 
ne  völlig  verzichten.  Als  Program¬ 
mierer  sollte  man  beide  Darstel¬ 
lungsarten  kennen,  denn  Pro¬ 
grammablaufpläne  und  Strukto¬ 


gramme  werden  noch  lange  neben¬ 
her  bestehen. 

Die  Elemente  des 
Struktogramms 

Jede  Aufgabenstellung  läßt  sich 
mit  den  folgenden  Grundstrukturen 
lösen: 

Sequenz  Auswahl  Wiederholung 

Diese  Grundstrakturen  werden 
zu  Strukturblöcken  zusammenge¬ 
setzt  und  sind  beliebig  ineinander 
verschachtelbar. 
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Sequenz  als  PÄP 
* 

Sequenz  als  Struktogramm 

I 

Anweisungen 

Anweisungen 

1  . 

Anweisungen 

Anweisungen 

Anweisungen 

Anweisungen 

• 

als  Struktogramm 


Bild  2.  Die  Anweisungen  werden  nur  dann  ausgeführt,  wenn  ▲ 
die  Bedingung  B  erfüllt  ist. 


Bild  1.  Die  Sequenz  ▲ 


Bild  3.  Die  Anweisungen  1  werden  ► 
nur  dann  ausgeführt, wenn  die  Be¬ 
dingung  B  erfüllt  ist,  sonst  werden 
die  Anweisungen  2  ausgeführt. 


Bild  6.  Die  Anweisungen  werden 
ausgeführt,  und  wenn  die  Wieder¬ 
holungsbedingung  erfüllt  ist,  wer¬ 
den  die  Anweisungen  wieder  aus¬ 
geführt,  sonst  wird  die  Schleife  ver¬ 
lassen.  Um  eine  Endlosschleife  zu 
vermeiden,  muß  auch  hier  die  Wie¬ 
derholungsbedingung  innerhalb  der 
Gruppe  der  Anweisungen  verändert 
werden,  y 


Bild  4.  Die  Anweisungen  1 
werden  nur  dann  ausgeführt, 
wenn  die  Variable  den  Wert 

1  enthält,  die  Anweisungen 

2  werden  nur  dann  ausge¬ 

führt,  wenn  die  Variablen 
den  Wert  2  enthält,  die  An¬ 
weisungen  n  werden  nur 
dann  ausgeführt,  wenn  die 
Variable  den  Wert  n  enthält. 
Es  können  beliebig  viele 
Blöcke  von  Anweisungen 
Vorkommen.  ► 


Fortsetzung  auf  Seite  58 
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Die  einzelnen  Gruppen,  in  die 
man  die  Befehle  gliedern  kann,  sol¬ 
len  im  folgenden  besprochen  wer¬ 
den.  Dabei  verdienen  manche  Be¬ 
fehle  noch  eine  besondere  Erwäh¬ 
nung. 

Hilfsfunktionen 

Diese  dienen  dazu,  das  Erstellen 
und  Testen  von  Basic-Programmen 
komfortabler  zu  gestalten.  Es  wur¬ 
den  dabei  einige  sinnvolle  Eigen¬ 
schaften  realisiert,  die  sich  nicht  di¬ 
rekt  durch  Schlüsselwörter  aus- 
drücken  lassen.  So  kann  man  ein 
Programm  komfortabel  mit  Hilfe  der 
Cursortasten  listen:  Drückt  man  am 
unteren  Bildrand  die  Cursor-down- 
Taste,  so  werden  weitere  Zeilen  geli¬ 
stet,  während  das  Bild  nach  oben 
rollt.  Für  den  oberen  Bildrand  und 
die  Cursor-up-Taste  gilt  entspre¬ 
chendes.  Wird  ein  Programm  feh¬ 
lerhaft  abgebrochen,  so  wird  nicht 
nur  eine  Fehlermeldung  abgesetzt, 
sondern  auch  die  fehlerhafte  Zeile 
mit  dem  Cursor  an  der  fehlerhaften 
Stelle  angezeigt.  Diskettenbefehle 
werden  abgekürzt  (entsprechend 
den  Möglichkeiten  des  DOS  5.1  auf 
der  Demodiskette): 


den  Speicherbereich  $8000  bis 
$9FFF,  man  hat  also  8  KByte  weniger 
Speicherplatz  zur  Verfügung  als 
sonst. 

Unbequemer  ist  da  schon  die  Lek¬ 
türe  der  beiden  Handbücher:  Das 
stärkere  gelbe  Buch  beschreibt  die 
Exbasic-Versionen  für  die  älteren 
Commodore-Computer  in  einem  zü¬ 
gig  lesbaren,  lockeren  Stil,  mit  vie¬ 
len  kleinen  Beispielen.  Um  aber  mit 
der  C  64-Version  zurecht  zu  kom¬ 
men,  muß  man  gleichzeitig  das 
blaue  Ergänzungsbuch  lesen.  Darin 
findet  man  neben  vielen  Verweisen 
auf  das  Handbuch  Hinweise  zu  Be¬ 
fehlen,  die  es  in  der  C  64-Version 
nicht  gibt,  zu  erweiterten  Parametri¬ 
sierungen  von  existierenden  Befeh¬ 
len  und  Beschreibungen  von  sol¬ 
chen  Befehlen,  die  speziell  für  den 
C  64  dazugekommen  sind.  Man  soll¬ 
te  sich  also,  um  Frustration  zu  ver¬ 
meiden,  beim  Studium  von  dem 
blauen  Ergänzungsbuch  leiten  las¬ 
sen.  Die  Befehlsübersicht  in  diesem 
Artikel  soll  den  Überblick  erleich¬ 
tern. 


Daß  die  auf  Vielseitigkeit  ausge¬ 
legte  Hardware konzeption  des 
Commodore  64  erst  mit  einer 
leistungsfähigeren  Sprache  bezie¬ 
hungsweise  Spracherweiterung  voll 
zum  Tragen  kommt,  steht  außer 
Zweifel.  Das  bei  Commodore  seit 
langem  bestehende  Mißverhältnis 
zwischen  der  hard-  und  softwaremä¬ 
ßigen  Grundausstattung  der  Geräte 
war  daher  auch  seit  längerer  Zeit  für 
einige  Software-Anbieter  Anlaß, 
sinnvolle  Erweiterungen  des  Be¬ 
triebssystems  und  des  Basic- 
Sprachumfangs  zu  entwickeln. 

Exbasic  Level  II  wurde  ursprüng¬ 
lich  für  die  älteren  und  größeren 
Commodore-Computer  als  fest  zu 
installierender  Hardware-Zusatz 
konzipiert.  Die  vorliegende  C  64- 
Version  kann  diese  Herkunft  nicht 
leugnen,  da  sie  nur  bedingt  an  die 
neuen  Möglichkeiten  dieser  Ma¬ 
schine  angepaßt  erscheint.  Wäh¬ 
rend  zum  Beispiel  Simons  Basic  ein¬ 
deutig  neu  für  den  C  64  entwickelt 
wurde  und  die  grafischen  und  aku¬ 
stischen  Fähigkeiten  des  C  64  voll 
unterstützt,  hat  man  mit  Exbasic  Le¬ 
vel  II  eher  ein  Produkt  für  kommer¬ 
zielle  Programme,  also  zum  Beispiel 
solche  aus  dem  Business-Bereich  in 
der  Hand. 

Exbasic  wird  als  Erweiterungsmo¬ 
dul  (siehe  Bild)  zusammen  mit  zwei 
Handbüchern  geliefert.  Der  Vorteil 
dieser,  gegenüber  einer  reinen  Dis¬ 
kettenversion,  teureren  Lösung 
spürt  man  deutlich,  wenn  man  regel¬ 
mäßig  mit  Exbasic  arbeitet,  da 
durch  die  langsame  Übertragungs¬ 
geschwindigkeit  vom  Laufwerk  zum 
C  64  für  8  KByte  schon  eine  beträcht¬ 
liche  Ladezeit  benötigt  wird.  Man 
steckt  einfach  das  Modul  in  den 
Expansion-Port  und  erhält  bereits 
nach  dem  Einschalten  eine  entspre¬ 
chende  Startmeldung.  Es  belegt 
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/programmname 

lädt  ein  Programm 

t  programmname 

lädt  ein  Programm  und  startet  es 

-  programmname 

speichert  ein  Programm  auf  Disk 

@ 

fragt  den  Fehlerkanal  des  Laufwerks  ab 

@$ 

zeigt  das  Inhaltsverzeichnis  an,  ohne  das  Programm  im 
Speicher  zu  zerstören 

©Befehl 

sendet  einen  Befehl  an  das  DOS 

LOAD  und  SAVE  bezeichnen  Kas¬ 
settenbefehle.  Diese  laufen  in  Exba- 
sic  mit  fünffacher  Geschwindigkeit 
ab. 

FIND 

Damit  kann  man  alle  Zeilen  voll¬ 
ständig  listen  lassen,  die  einen  an¬ 
gegebenen  Suchstring  an  irgendei¬ 
ner  Stelle  enthalten.  So  werden  zum 
Beispiel  mit  FIND  REM  alle  Kom¬ 
mentarzeilen  gelistet.  Mit  FIND  A$ 
kann  man  sich  alle  Stellen,  an  denen 
auf  die  Variable  A$  zugegriffen 
wird,  listen  lassen.  Zum  Editieren 
von  Programmen  ist  diese  Möglich¬ 
keit  von  nicht  zu  unterschätzendem 
Wert. 

RENUM 

Exbasic  unterstützt  weniger  als  Si¬ 
mons  Basic  das  strukturierte  Pro¬ 
grammieren.  Sprünge  und  Aufrufe 
von  Unterprogrammen  sind  immer 
mit  der  Angabe  von  Zeilennummern 
verbunden.  Dem  trägt  aber  der  Be¬ 
fehl  RENUM  Rechnung.  RENUM 
nummeriert  nicht  nur  (wie  bei  Si¬ 
mons  Basic)  die  Zeilennummern 
neu,  sondern  ändert  auch  die  Argu¬ 
mente  aller  Befehle,  die  sich  auf  Zei¬ 
lennummern  beziehen,  wie  GOTO, 
GOSUB,  TFIEN  und  so  weiter,  sinn¬ 
gemäß  ab,  so  daß,  wie  man  es  ei¬ 
gentlich  auch  erwartet,  das  umnum¬ 
merierte  Programm  lauffähig  bleibt. 

TRACE 

Dieser  Befehl  schaltet  einen  Mo¬ 
dus  ein,  in  dem  jede  aktuelle  Be¬ 
fehlszeile  eines  laufenden  Pro¬ 
gramms  in  der  ersten  Bildschirmzei¬ 
le  kurz  angezeigt  wird.  Bei  Zeilen 
mit  mehreren  Befehlen  steht  sogar 


der  Cursor  auf  dem  jeweils  aktuel¬ 
len  Befehl.  So  lassen  sich  zum  Bei¬ 
spiel  auch  bedingte  Anweisungen 
gut  mitverfolgen.  Verlangsamung 
des  Vorgangs  und  auch  Einzel¬ 
schrittbetrieb  sind  mit  der  CTRL- 
Taste  möglich.  Durch  Drücken  der 
Commodore-Taste  läuft  das  Pro¬ 
gramm  wieder  schneller.  De.  die  Be¬ 
fehle  TRACE  und  TRACE  Ol-  F  auch 
programmierbar  sind,  kann  man 
sich  in  einem  Programm  auch  ge¬ 
zielt  Teile,  die  man  testen  will,  »tra- 
cen«  lassen. 

SPACE 

Um  Speicherplatz  zu  sparen,  eli¬ 
miniert  Exbasic  alle  Blanks  in  Pro¬ 
grammen  außer  in  Kommentaren 
und  in  Texten,  die  durch  Apostro¬ 
phe  begrenzt  werden.  Durch  den 
Befehl  SPACE  (ohne  Parameter) 
werden  beim  Listen  (nicht  im  Pro¬ 
gramm  selbst)  wieder  Blanks  einge¬ 
fügt,  um  die  Übersichtlichkeit  eines 
Programms  zu  wahren. 

BASIC 

Dieser  Befehl  desaktiviert  Exba¬ 
sic,  was  außer  einem  geringen  Ge¬ 
schwindigkeitsgewinn  bei  Stan- 
dard-Basic-Programmen  eigentlich 
nichts  bringt.  Er  wird  allerdings  not¬ 
wendig,  wenn  man  mit  den  Disket¬ 
tenbefehlen  LOAD"name”,8  und 
LOAD"name”,8,l  oder  SAVE"na- 
me",8  arbeiten  will,  oder  wenn  das 
Programm  diese  Befehle  enthält. 
Diese  Befehle  wirken  in  Exbasic  un¬ 
erfreulicherweise  auf  Kassette  und 
nicht  auf  die  Disk.  Exbasic  kann  mit 
PRINT  USR(O)  wieder  gestartet  wer¬ 
den. 


MERGE 

Hiermit  kann  man  ein  Programm 
von  Diskette  oder  Kassette  zu  einem 
Programm  im  Hauptspeicher  dazu¬ 
laden.  Das  nachzuladende  Pro¬ 
gramm  sollte  Zeilennummern  ha¬ 
ben,  die  von  denen  des  vorhande¬ 
nen  Programms  verschieden  sind, 
ansonsten  bedarf  das  Mischprodukt 
noch  einer  manuellen  Nachbehand¬ 
lung,  da  doppelte  Zeilennummern 
auftreten.  Die  richtige  Form  des  Be¬ 
fehls  für  das  Nachladen  von  Diskette 
ist  übrigens: 

MERGE*  "programmname",  8 

KEY 

Durch  die  Möglichkeit,  die  f- 
Tasten  mit  beliebigen  Texten  zu  be¬ 
legen  (einschließlich  RETURN 
durch  die  Taste »— «)  werden  die  gu¬ 
ten  Editierfähigkeiten  von  Exbasic 
abgerundet. 

Kontrollstrukturen 

Da  Exbasic  mehr  das  zeilennum- 
mern-orientierte  Programmieren 
unterstützt  findet  man  hier  nur  spär¬ 
liche  Möglichkeiten.  Die  von  PAS¬ 
CAL  her  bekannten  Konstruktionen 
wie  WHILE  ...  DO  oder  REPEAT  ... 
UNTIL  wird  man  hier  vergeblich  su¬ 
chen.  Das  eigentlich  schon  zum 
Standard  gehörende  IF  ...  THEN  ... 
ELSE  gibt  es  aber  auch  in  Exbasic. 

DISPOSE 

Der  Nutzen  dieses  Befehls  er¬ 
scheint  eher  zweifelhaft.  Er  läßt  zwar 
manchmal  trickreiche  und  kurze 
Programme  zu,  untergräbt  aber  das 
Konzept  von  strukturierten  Program¬ 
men.  Der  Interpreter  verwaltet  für 
Schleifen  und  Unterprogramm¬ 
sprünge  einen  Stack,  auf  dem  Rück¬ 
sprungadressen  und  Namen  von 
Laufvariablen  gehalten  werden. 
Diesen  Stack  kann  man  mit  DISPO¬ 
SE  manipulieren.  So  kann  man  mit 
DISPOSE  NEXT  eine  Schleife  ab¬ 
schließen,  um  sie  dann  mit  GOTO  ir¬ 
gendwo  zu  verlassen.  DISPOSE  RE¬ 
TURN  schließt  eine  Unterpro¬ 
grammebene  ohne  Rücksprung  ab. 
Man  muß  dann  das  Unterprogramm 
mit  einem  GOTO  verlassen.  DISPO¬ 
SE  CLR  löscht  den  gesamten  Stack. 
Die  Beispiele  im  Handbuch  zu  DI¬ 
SPOSE  sind  nicht  sehr  gelungen.  Ei¬ 
ne  vernünftige  Anwendung  ergibt 
sich  meiner  Ansicht  nach  nur  im  Zu¬ 
sammenhang  mit  einer  program¬ 
mierten  Fehlerbehandlung. 
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Die  Befehle  zur  Fehlerbehand¬ 
lung  sind  sehr  nützlich  und  sinnvoll. 
ON  ERROR  GOTO 
Wenn  dieser  Befehl  einmal  abge¬ 
arbeitet  wurde,  bricht  bei  einem 
späteren  Fehler  das  Programm 
nicht  ab,  sondern  springt  an  die  bei 
ON  ERROR  GOTO  angegebene  Zei¬ 
lennummer.  Dort  kann  der  Benutzer 
seine  eigene  Fehlerbehandlungs¬ 
routine  unterbringen.  Dazu  stehen 
ihm  zur  Information  die  Variablen 
EC  (Error  Code)  und  EL  (Error  Line) 
zur  Verfügung.  EC  enthält  die  Num¬ 
mer  des  Fehlers  gemäß  einer  Liste 
im  Handbuch,  EL  die  Zeilennum¬ 
mer  der  Zeile,  in  der  der  Fehler  auf¬ 
getreten  ist.  Die  Fehlerbehand¬ 
lungsroutine  wird  mit  einer  der  drei 
RESUME-Varianten  verlassen  (siehe 
Tabelle). 


Ein-  und  Ausgabebefehle 


Diese  machen  neben  den  Hilfs¬ 
funktionen  die  eigentliche  Stärke 
von  Exbasic  aus.  Mit  wenigen,  aber 
leistungsfähigen  Befehlen  ist  eine 
vielfältig  formatierbare  Ausgabe 
möglich.  Man  kann  auch  sehr  ein¬ 
fach  gegen  Fehlbedienung  gesi¬ 
cherte  Eingabemasken  realisieren. 

INPUTFORM 

Dieser  Befehl  gestattet  es,  neben 
der  Ausgabe  eines  Textes,  ein  Ein¬ 
gabefeld  in  Position,  Länge  und  Far¬ 
be  zu  definieren.  Gleichzeitig  wird 
mit  diesem  Befehl  eine  Eingabe 
über  dieses  Feld  angefordert.  Da¬ 
bei  ist  es  nicht  möglich,  über  das 
festgelegte  Feld  hinauszuschreiben. 
Eingegeben  werden  können  alle 
Zeichen  außer  den  Cursor-Steuer¬ 
zeichen.  Mit  DEL  kann  man  einzelne 
Zeichen  löschen,  mit  »— «  den  gan¬ 
zen  Text. 

PRINT  USING 

Formatierte  Ausgabe  von  Dezi¬ 
malzahlen  wird  hiermit  ermöglicht. 
Es  wird  ein  Formatstring  ausgege¬ 
ben,  der  beliebig  Text  sowie  Fcrmat- 
zahlen  enthalten  darf.  Bei  der  Aus¬ 
gabe  werden  dann  die  Formatzah¬ 
len  durch  aktuelle  Zahlen  aus  der 
Variablenliste  ersetzt.  Eine  Format¬ 
zahl  setzt  sich  aus  Formatzeichen 

”  und  — ' 

zusammen.  Dabei  stehen  und 
”*”  für  Dezimalstellen.  Beispielswei¬ 
se  führt  PRINT  USING  "DM 
#  #  #,  #  2000/3  zu  DM  666,67 
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Diese  Befehle  sind  mit  Exbasic  Level  II  möglich 

Konventionen:  X,X1,Y  und  so  weiter  bezeichnen  allgemeine  numerische  Ausdrücke,  an- 

sonsten  werden  Parametemamen  klein  geschrieben,  »ad«  steht  für  Adresse  (0... 65535), 

»fz«  für  Farbzahl  (1...16).  Runde  Klammem  müssen  mit  eingegeben  werden,  eckige  und 

spitze  Klammem  werden  nicht  eingegeben.  Parameter  in  eckigen  Klammem  müssen  an- 

geführt  werden,  während  Parameter  in  spitzen  Klammem  optionell  sind. 

Hilfsfunktionen: 

FIND  [string](, bereich) 

Zeilen,  die  den  String  enthalten,  listen 

AUTO  (zeilennr.) (.Schrittweite) 

automatische  Zeilennummemvorgabe 

DEL  [bereich] 

Bereich  löschen 

RENUM  (startnr.)  (.Schrittweite) 

Zeilen  umnummerieren 

TRACE/TRACE  OFF 

aktuellen  Befehl  anzeigen 

DUMP 

nichtindizierte  Variablen  mit  Wert  anzeigen 

MATRIX 

indizierte  Variablen  mit  Wert  anzeigen 

LETTER 

Umschalten  in  Klein/Großschrift 

LETTER  OFF 

Umschalten  in  Großschrift/Blockgrafik 

MEM 

Speicherbelegung  anzeigen 

HIMEM  [ad] 

obere  Speichergrenze  für  Basic  setzen 

SPACE/SPACE  OFF 

beim  Listen  Blanks  mit  ausgeben 

HELP 

Exbasic-Schlüsselwörter  auflisten 

HELP* 

Standard-Basic-Schlüsselwörter  auflisten 

BASIC 

Rückkehr  ins  Standard-Basic 

PRINT  USR  (0) 

Exbasic  Level  II  reaktivieren 

MERGE  (.programmname) 

weiteres  Programm  in  bestehendes  einkopieren 

KEY 

F-Tastenbelegung  anzeigen 

KEY  [nummer], [string] 

F-Tastenbelegung  definieren 

KEY  ON 

Standardbelegung  hersteilen 

Kon  trollst rukt  uren: 

IF...THEN...ELSE 

bedingte  Verzweigung 

!  RESTORE  [zeüennummer] 

'  ON  X  RESTORE  [zeilennum- 

DÄTA-Zeilen-Zeiger  auf  angegebene  Zeile  setzen 

memliste] 

RESTORE  mit  berechneter  Zeilennummer 

DISPOSE 

Manipulationen  des  Stack 

DISPOSE  CLR 

Abschluß  aller  Schleifen  und  Unterprogramme 

DISPOSE  RETURN 

Abschluß  einer  offenen  Unterprogrammebene  oh-  ! 
ne  Rücksprung 

DISPOSE  NEXT  [variablenname] 

:  ON  ERROR  GOTO  [zeilennum- 

Abschluß  der  Schleife  mit  der  angegebenen  Lauf¬ 
variablen  sowie  aller  Schleifen  innerhalb  dieser, 
aber  kein  Sprung  aus  der  Schleife 

mer] 

Fehlerausgang  definieren 

RESUME 

Rückkehr  nach  Fehlerbehandlung  zur  Zeüe,  in  der 
der  Fehler  aufgetreten  ist 

RESUME  NEXT 

Rückkehr  nach  Fehlerbehandlung  zu  der  Zeüe,  die 
auf  die  Zeile  folgt,  in  der  der  Fehler  aufgetreten  ist 

RESUME  [zeilennummer] 
EinVAusgabebefehle: 

beliebiger  Rücksprung  nach  Fehlerbehandlung 

INPUTLINE  ftext”;) 
[stringvariable] 

Eingabe  sämtlicher  Zeichen 

INPUTFORM  (”text’’;)[stringvaria- 

Eingabe  beliebiger  Zeichen  außer  Cursorsteuer- 

ble]  (.maximallänge)  (,fz) 

Zeichen  in  das  Feld  mit  angegebener  Länge 

PRINT@  [position] ,”text” 

Ausgabe  an  beliebiger  Bildschirmposition 

PRINT  USING  ["format"], [varliste] 
SPACE  [spaltel,zeilel,spalte2, 

formatiertes  Drucken 

zeile2](,code)(,fz) 

Die  ersten  4  Parameter  bestimmen  den  linken  obe¬ 
ren  bzw.  den  rechten  unteren  Eckpunkt  eines 
Rechtecks,  das  mit  dem  durch  seinen  Bildschirm¬ 
code  gegebenen  Zeichen  gefüllt  wird. 

STRING$  (anzahl,  string  od.  X) 

Vervielfachung  des  angegebenen  Strings  oder  des 
durch  den  ASCII-Code  X  gegebenen  Zeichens 

HARDCOPY 

Ausgabe  des  Bildschirminhalts  (nur  Blockmodus) 

Stringbefehle: 

INSTR  (String  1,  string  2 

sucht  string2  in  stringl  ab  position  und  liefert,  falls 

(Position)) 

vorhanden,  die  Position  von  string2  in  stringl,  sonst  0 

EVAL  (string) 

Auswertung  eines  durch  string  dargestellten  nu¬ 
merischen  Ausdrucks 

EXEC  (string) 

Ausführung  eines  im  string  enthaltenen  Basic- 
Befehls 
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Grafik-  und  Farbbefehle: 

CURSOR  [fz] 

Ausgabefarbe  setzen 

GROUND  [fz] 

Hintergrundfarbe  setze 

n 

BORDER  [fz] 

Rahmenfarbe  setzen 

COKE  [position, Zeichencode, fz] 

Durch  Code  bestimmte 
sition  setzen 

sl  Zeichen  an  Bildschirmpo- 

CEEK  [position, modus] 

modus  =  S:  Bestimmung  des  Zeichencodes  des 

Zeichens  an  gegebener  Position 

modus  =  C:  Bestimmung  des  Farbcodes 

HPLOT  X(,fz) 

horizontalen  Balken  der  Länge  X  plotten 

VPLOT  X{,fz) 

vertikalen  Balken  der  Höhe  X  plotten 

SET  (spalte, zeile) 

Punkt  setzen  (Blockgrafik  80x50) 

RESET  (spalte, zeile) 

Punkt  löschen 

POINT  (spalte, zeile) 

Test,  ob  Punkt  gesetzt 

Tonerzeugung: 

VOLUME  X 

Lautstärke  des  SID  setzen  (0-15) 

ADSR  [stimme, kurven¬ 
form, a,d,s,r],  (pulsweite) 

Klangparameter  setzen 

PLAY  [stimme, tonhöhe] 

Ton  anschlagen 

Numerische  Funktionen: 

MAX  (XI. X2 . Xn) 

Maximum 

MIN  (XI, X2 . Xn) 

Minimum 

FRAC  (X) 

Nachkommastellen  einer  Dezimalzahl 

ROUND  (X,Y) 

Rundung  von  X  auf  Y  Nachkommastellen 

ODD  (X) 

Test  des  ganzzahligen  Teils  von  X  auf  ungerade 

RND  (X) 

FiirX  >  =  2  ganze  Zufaliszahlen  zwischen  1  und  X, 

sonst  wie  Standard-RND 

HEX$  (X) 

Umwandlung  von  X  in  Hexadezimalstring 

DEC  (Hexadezimalstring) 

;  Verbin  d ungen  zur  M aschin  en  - 
spräche: 

Umwandlung  in  Dezimalform 

CALL  (parameterliste) 

Aufruf  eines  Maschinenprogramms  parametem 

über  speziellen  Einsprungvektor 

DEF  CALL  -  [ad] 

Definition  des  CALL-Vektors 

DOKE  [ad],X 

Doppelbyte-POKE 

DEEK  (ad) 

Doppelbyte-PEEK 

VARPTR  (variablenname) 

Anfangsadresse,  ab  der  der  zugehörige  Variablen¬ 
wert  im  Speicher  liegt 

Sonstige  Befehle: 

SEC  X 

X  Sekunden  Verzögerung 

PAUSE  X 

X/16  Sekunden  Verzögerung 

LOCK 

Manuelle  Umschaltunq  Schreibmaschinenmo- 

dus/Grafikmodus  sperren 

LOCK  OFF 

LOCK  aufheben 

SWAP  [vamamel],[vamame2] 

Werte  zweier  Variablen  vertauschen 

Auch  wenn  man  keine  EXBASiC-Level  Il-Befehle  in  seine  Programme  einfügen  will,  also  nur  das 
Standard-Commodore-Basic  benutzt,  ist  EXBASIC-Level  II  eine  sehr  komfortable  Editierhilfe 


SPACE  mit  Parameterangabe 

Im  Gegensatz  zu  SPACE  ohne  Pa¬ 
rameter  (siehe  oben)  kann  man  mit 
SPACE  plus  Parameterangabe  sehr 
schnell  ganze  Rechteckbereiche 
mit  einem  Zeichen  beschreiben. 
Man  kann  damit  zum  Beispiel  große 
farbige  Rechtecke  erzeugen  oder 
Teilbereiche  des  Bildschirms  ge¬ 
zielt  löschen. 

Stringbefehle 

EVAL  und  EXEC  erlauben  es, 
Strings  als  numerische  Ausdrücke 
beziehungsweise  als  Basic-Befehle 
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aufzufassen.  Damit  ist  es  möglich,  in 
ein  laufendes  Programm  eine  Funk¬ 
tion  einzugeben,  um  zum  Beispiel 
deren  Nullstellen  zu  ermitteln,  ohne 
das  Programm  abzubrechen.  Denk¬ 
bar  wäre  auch  die  Simulation  eines 
leistungsfähigen  Taschenrechners. 

Grafik-  und  Farbbefehle 

Es  werden  leider  nur  die  Möglich¬ 
keiten  unterstützt,  die  sich  aus  den 
Grafikzeichen  der  Tastatur  erge¬ 
ben.  Dazu  gehören  Balken,  deren 
Länge  beziehungsweise  Höhe  sehr 
fein  abgestuft  werden  kann,  deren 


Breite  aber  immer  acht  Rasterpunk¬ 
te  beträgt.  Da  diese  Balkengrafik  al¬ 
lerdings  sehr  schnell  ist,  könnte  man 
sie  beispielsweise  zur  quasi-ana¬ 
logen  Anzeige  von  Meßwerten  in 
Realzeit  benutzen. 

Weitere  Befehle 

Die  Befehle  zur  Tonerzeugung  er¬ 
sparen  eine  lange  Reihe  von  PEEKs 
und  POKEs,  auch  muß  man  die 
Adressen  der  SID-Register  nicht 
kennen.  Man  kommt  jedoch  nicht 
umhin,  sich  mit  den  Einzelheiten  des 
Sound-Chips  zu  befassen.  Eine  Rei¬ 
he  weiterer  Befehle  erleichtert  das 
Zusammenspiel  zwischen  Basic- 
und  Maschinenspracheprogram¬ 
men  erheblich.  Viele  Programmier¬ 
aufgaben  lassen  sich  nur  in  Maschi¬ 
nensprache  vernünftig  lösen.  Diese 
Maschinensprache  versieht  man 
aber  meistens  mit  Rahmenprogram¬ 
men  in  Basic,  die  dazu  dienen,  kom¬ 
fortabel  mit  dem  Benutzer  zu  kom¬ 
munizieren  (in  Basic  liegen  komfor¬ 
table  E/A-Routinen  eben  schon  vor) 
und  dazu,  das  Maschinenprogramm 
mit  Parametern  zu  versorgen  und  es 
aufzurufen.  Letzterem  dienen  die 
Befehle  HEX$,  DEC,  CALL,  DOKE, 
DEEK  und  VARPTR.  Man  halte  sich 
vor  Augen,  daß  zum  Beispiel  zur  Än¬ 
derung  eines  16-Bit-Wertes  der  Be¬ 
fehl: 

DOKE  AD,X  genügt,  während  man 
in  Standard-Basic  die  etwas  um¬ 
ständliche  Sequenz: 

POKE  ÄD.X— 256*INT(X/256) 

POKE  AD +  1, INT  (X/256) 
benötigt. 

Zusammenfassende 

Beurteilung 

Wer  die  vollen  Grafik-  und  Klang¬ 
möglichkeiten  des  C  64  (einschließ¬ 
lich  Sprites)  mit  von  Basic  ausnutzen 
will,  der  sollte  Simons  Basic  oder  ei¬ 
ne  andere  spezielle  graphische  Be¬ 
fehlserweiterung  wählen.  Auch  was 
strukturierte  Programme  anbe¬ 
langt,  fährt  man  mit  Simons  Basic 
besser. 

Wer  allerdings  Basic-Programme 
(unter  anderen  auch  schon  vorhan¬ 
dene)  sehr  komfortabel  editieren 
und  testen  will,  wer  maskierte  Ein¬ 
gabe  und  formatierte  Ausgabe  be¬ 
nötigt,  für  Business-Programme,  für 
komfortable  und  schnelle  Rahmen¬ 
programme  zu  Maschinensprache¬ 
programmen,  für  den  ist  Exbasic  Le¬ 
vel  II  sicher  das  geeignetere  Werk¬ 
zeug. 

(Thomas  Krätzig) 
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Der  private  Anwender,  der  sei¬ 
nen  Computer  als  reines  Hobby 
betrachtet,  wird  in  der  Regel 
nicht  viel  Geld  für  ausgefeilte  Text¬ 
programme  ausgeben  wollen  und 
sich  oft  genug  auch  seine  eigene 
Textverarbeitung  schreiben.  An¬ 
ders  sieht  es  zum  Beispiel  bei  dem 
Geschäftsmann  aus,  der  seine  ge¬ 
samte  Korrespondenz  mit  Compu¬ 
terhilfe  abwickeln  will.  Dieser  An¬ 
wender  wird  naturgemäß  viel  Wert 
auf  »gehobene»  Funktionen  zur  Text¬ 
verarbeitung  legen  und  auch  eher 
bereit  sein,  für  wirklich  gute  Pro¬ 
gramme  auch  einiges  an  Geld  zu 
zahlen. 
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Die  vorliegende  Marktübersicht 
enthält  —  ohne  einen  Anspruch  auf 
Vollständigkeit  zu  erheben  —  die 
gängigsten  der  für  den  Commodore 
64  (zum  Teil  auch  für  den  VC  20)  an¬ 
gebotenen  Textverarbeitungspro¬ 
gramme.  Die  Preise  liegen  dabei 
zwischen  28  und  898  Mark,  eine 
Spanne,  innerhalb  der  sowohl  der 
reine  Hobbyist  wie  auch  der  kom¬ 
merzielle  Anwender  ein  für  ihn  geei¬ 
gnetes  Programm  finden  dürfte.  Da¬ 
bei  muß  ganz  deutlich  darauf  hinge¬ 
wiesen  werden,  daß  nicht  für  jede 
Anwendung  das  teuerste  Programm 
auch  unbedingt  das  beste  sein  muß. 
Zum  Beispiel  nützt  einem  die  in  ei¬ 
nem  teuren  Programm  eventuell  in¬ 


tegrierte  Adreßverwaltung  wenig, 
wenn  man  gar  keme  Adressen  ver¬ 
walten  will.  Man  sollte  sich  wie  im¬ 
mer  beim  Softwarekauf  vorher  über¬ 
legen,  was  man  nachher  braucht. 

Was  gibt  es  auf 
dem  Markt? 

Diese  Marktübersicht  kann  Ih¬ 
nen  keine  Beschreibungen  der  ein¬ 
zelnen  Taxtprogramme  liefern  (wir 
müßten  sonst  ein  ganzes  Heft  damit 
füllen),  aber  Sie  erfahren  hier,  was 
Sie  zu  welchem  Preis  wo  beziehen 
können  —  und  vor  allem,  was  für  Pro¬ 
gramme  überhaupt  auf  dem  Markt 
sind.  (ev) 
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Der  Wunsch,  mit  dem  Commodo- 
re  64  eine  Verarbeitung  von  Tex¬ 
ten  durchzuführen,  wird  si¬ 
cherlich  in  jedem  Besitzer  einen 
Commodore  64  spätestens  dann 
wach,  wenn  er  sein  System  um  einen 
Drucker  bereichert  hat. 

Da  die  Textausgabe  mittels  PRINT- 
Anweisungen  dabei  schnell  als  zu 
umständlich  angesehen  wird,  steht 
man  bald  vor  der  Entscheidung,  ein 
fertiges  Textverarbeitungspro¬ 
gramm  zu  kaufen.  Der  in  der  Reihe 
der  »Golden  Tools«  Programme  er¬ 
schienene  SM-Text,  verspricht  diese 
Aufgabe  in  komfortabler  Weise 
übernehmen  zu  können. 

Wer  bereits  beruflich  oder  wäh¬ 
rend  seines  Studiums  mit  einem 
Textverarbeitungssystem  gearbei¬ 
tet  hat,  wird  mehr  verlangen,  als  al¬ 
lein  die  Fähigkeit,  geschriebene 
Texte  auf  den  Drucker  zu  übertra¬ 
gen: 

1.  Der  Text  sollte  möglichst  so  auf 
dem  Bildschirm  erscheinen,  wie  er 
später  gedruckt  wird. 

2.  Das  Einfügen,  Verändern  und  For¬ 
matieren  der  Texte  sollte  unkompli¬ 
ziert  und  schnell  sein. 

3.  Das  Speichern  und  Laden  der 
Texte  muß  möglich  sein. 

4.  Die  Fähigkeiten  des  angeschlos¬ 
senen  Druckers  sollen  ganz  ausge¬ 
nutzt  werden. 

5.  Die  Steuerung  der  einzelnen 
Funktionen  sollte  einfach,  logisch 
und  übersichtlich  sein. 

6.  Letztlich  sollte  ein  im  deutschspra¬ 
chigen  Raum  verkauftes  Produkt 
auch  die  deutschen  Umlaute  dar¬ 
stellen  und  zum  Ausdruck  bringen 
können. 

Einer  Realisierung  dieser  Anfor¬ 
derungen  stehen  von  der  Hardware 
des  Commodore  64  einige  Proble¬ 
me  entgegen.  Der  64er  hat  keine 
deutsche  DIN-Tastatur  als  Standard, 
seine  Zeichendarstellung  ist  auf  den 
amerikanischen  ASCII-Satz  abge¬ 
stimmt,  und  er  kann  nur  40  Zeichen 
pro  Zeile  darstellen. 

Dieses  Handicap  wurde  beim  SM- 
Text  auf  beeindruckende  Weise 
überwunden.  Nach  dem  Laden  des 
Programms  erscheint  ein  Menü, 
über  das  sich  entweder  die  Stan- 
dard-Commodore-  oder  eine  fast 
komplette  deutsche  DIN-Tastatur 


auswählen  läßt  (Bild  1).  Eine  Anpas¬ 
sung  an  ASCII-  oder  Commodore- 
Drucker  ist  hier  ebenfalls  möglich. 
Je  nachdem,  welche  der  Funktionen 
angewählt  wurde,  speichert  SM-Text 
die  Tastatur/Drucker-Kombination 
auf  der  Systemdiskette  ab.  Dadurch 
wird  erreicht,  daß  diese  Einstellun¬ 
gen  so  lange  automatisch  mitgela¬ 
den  werden,  bis  man  eine  andere 
Kombination  wählt. 

Verläßt  man  dieses  Menü  durch 
Drücken  der  Tasten  »T«  und  RE¬ 
TURN  erscheint  nach  zirka  einer  Mi¬ 
nute  das  Arbeitsblatt-Hauptmenü 
(Bild  2).  SM-Text  ist  aus  über-  und  un¬ 
tergeordneten  Menüs  aufgebaut. 
Durch  Drücken  einer  der  Funktions¬ 
tasten,  deren  Bedeutung  am  unte¬ 
ren  Bildschirmrand  erklärt  wird, 
kommt  man  in  das  jeweils  unterge¬ 
ordnete  Menü,  durch  Drücken  der 
» t  «-Taste  (Men)  kommt  man  in  das  je¬ 
weils  übergeordnete  Menü. 

Da  cffe  Erklärung^  der  Funk¬ 
tionstasten  am  unteren  Bildschirm¬ 
rand  relativ  kurz  gehalten  werden 
mußten,  besteht  die  Möglichkeit 
durch  Drücken  der  CLR/HOME-Ta- 
ste  genauere  Erläuterungen  ab¬ 
zurufen  und  mit  »Space«  wieder  zu 
löschen.  So  wie  die  Funktionstasten 
haben  auch  viele  Steuertasten  eine 
neue  Aufgabe  zugedacht  bekom¬ 
men.  Die  »Pfeil-nach-links-Taste« 
wird  zum  Worttabulator  (ein  Wort 
vor,  beziehungsweise  zurück)  und 
die  RUN/STOP-Taste  zum  Tabulator. 
Mit  CTRL  in  Verbindung  mit  dem 
Worttabulator,  den  Cursorsteuerta¬ 
sten  und  der  SHIFT-Taste,  lassen 
sich  Wörter  und  Zeilen  vor  bzw. 
nach  dem  Cursor  löschen. 

Möchte  man  nun,  ausgehend  vom 
Hauptmenü,  einen  Text  erstellen,  so 
ist  zuerst  die  fl-Taste  (editieren)  zu 
drücken.  Der  Cursor  beginnt  dann 
in  der  ersten  Zeile  auf  einem  Pfeil 
nach  rechts  zu  blinken,  die  Anlei¬ 
tung  sagt,  daß  man  nun  dem  Text  ei¬ 
nen  Namen  geben  soll.  Dabei  ist  zu 
beachten,  daß  man  den  Cursor  um 
eine  Stelle  nach  rechts  versetzt,  da¬ 
mit  der  Pfeil  erhalten  bleibt.  Macht 
man  dies  nicht,  so  erhält  man  die 
Fehlermeldung  ’ 'Textname  nicht  in 
Ordnung".  Hat  man  dies  beachtet, 
drückt  man  RETURN  und  kann  be¬ 
ginnen  seinen  Text  zu  schreiben. 


cte  professionelle 


Da  ich  die  deutsche  Tastatur  ge¬ 
wählt  hatte,  erwartete  ich  mit  Span¬ 
nung  die  Darstellung  der  deutschen 
Umlaute:  Und  tatsächlich  beim 
Drücken  der  <:>-Taste  erscheint 
auf  dem  Bildschirm  ein  <  ö  >.  Ermu¬ 
tigt  von  diesem  Erfolg  versuchte  ich 
einmal,  ohne  auf  die  Tastatur  zu 
schauen,  alle  mir  von  der  Schreib¬ 
maschine  her  bekannten  Zeichen  zu 
erreichen.  Das  Resultat  war  erfreu¬ 
lich,  alle  Buchstaben  waren  da,  wo 
sie  auf  einer  deutschen  Schreibma¬ 
schine  auch  sind.  Wer  also  »blind« 
im  Zehn-Finger-System  schreiben 
möchte,  und  auf  deutsche  Umlaute 
nicht  verzichten  will,  wird  vom  SM- 
Text  freudig  überrascht  sein. 

Aber  wie  sieht  es  mit  der  Darstel¬ 
lung  des  Textes  auf  dem  Bildschirm 
aus?  Auch  hier  wurde  eine  elegante 
Lösung  gefunden:  Der  Text  bewegt 
sich  beim  Schreiben  in  Sprüngen  je¬ 
weils  in  der  36.,  51.  und  66.  Spalte  ho¬ 
rizontal  um  einige  Zeichen  nach 
links.  Die  Sprünge  wurden  dabei 
aber  so  gewählt,  daß  ein  Teil  des 
eben  geschriebenen  Textes  noch 
sichtbar  bleibt,  so  daß  der  Anschluß 
nicht  verlorengeht. 
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Eine  der  wichtigsten  Anwendungen  für  Computer  ist  die  Textverarbeitung. 
Daß  eine  sinnvolle  und  komfortable  Textverarbeitung  nicht  nur  mit  zigtausend 
Mark  teuren  Geräten  möglich  ist,  versucht  SM-Text  64  zu  zeigen. 


T&h&otbe»- 

Möchte  man  aber,  daß  der  gesam¬ 
te  Text  auf  dem  Bildschirm  lesbar  ist, 
so  kann  man  aus  dem  Editier-Modus 
über  die  f8-Taste  die  Zeilenbreite 
beliebig  zwischen  0  und  120  Zei¬ 
chen  pro  Zeile  einstellen. 

Auch  das  Verändern  des  ge¬ 
schriebenen  Textes  ist  recht  kom¬ 
fortabel  gelöst:  Zum  einen  bleiben 
die  bekannten  Cursorfunktionen 
ganz  erhalten,  zum  anderen  ist  es 
weiterhin  möglich,  Texte  zu  über¬ 
schreiben  oder  Wörter  und  Sätze 
einzufügen.  Nach  Drücken  der 
SHIFT-  und  INST-Taste  wird  der  bis¬ 
her  geschriebene  Text  automatisch 
so  lange  nach  unten  verschoben,  bis 
eine  der  Cursortasten  gedrückt 
wird. 

Der  nach  dem  Laden  immer  akti¬ 
vierte  Automatikmodus  (reservs  A 
auf  der  obersten  Zeile)  sorgt  beim 
Schreiben  dafür,  daß  Wörter,  die 
nicht  mehr  ganz  in  eine  Zeile  passen 
würden,  automatisch  mit  in  die 
nächste  Zeile  übernommen  wer¬ 
den.  Man  braucht  also  nur  noch  zu 
schreiben,  ohne  auf  Worttrennun- 


Bild  1.  Hier 

können  die  Parameter  eingestellt  werden 
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gen  beziehungsweise  »Wagenrück¬ 
lauf«  wie  bei  der  Schreibmaschine 
achten  zu  müssen.  Eine  Umformatie¬ 
rung  des  Textes  ist  über  die  Funktio¬ 
nen  f7  (justieren)  nach  dem  Schrei¬ 
ben  immer  noch  möglich.  Hilfreich 
sind  dabei  die  sogenannten  Cursor¬ 
bewegungen  (fl  im  Editiermodus). 
Sie  ermöglichen  es,  seitenweise  vor 
oder  zurück  zu  springen  oder  den 
Cursor  an  das  Textende  bezie¬ 
hungsweise  den  Textanfang  zu  set¬ 
zen. 

Auch  das  Löschen  und  Einfügen 
von  Zeilen  oder  das  Transportieren 
und  Kopieren  von  einzelnen  Berei¬ 
chen  (f5  im  Editiermodus)  ist  leicht 
möglich.  Wer  dann  noch  Absätze  ju¬ 
stieren  oder  Zeilen  zentrieren 
möchte,  wird  von  SM-Text  nicht  ent¬ 
täuscht. 

Eine  weitere,  sehr  nützliche  Funk¬ 
tion  ist  das  sonst  nur  von  speziellen 
Textverarbeitungscomputern  her 
bekannte  Suchen  im  Arbeitsspei¬ 
cher.  Damit  ist  es  möglich,  nach  be¬ 
stimmten  Wörtern  im  Text  zu  suchen 
und  diese  einmal  oder  immer  durch 
ein  anderes  zu  ersetzen.  Besonders 
werden  Verfasser  von  Rundschrei¬ 
ben  diese  Funktion  zu  schätzen  wis¬ 
sen.  Damit  auch  die  für  solche  Rund¬ 
schreiben  notwendigen  Adressen 
nicht  extra  eingetippt  werden  müs¬ 
sen,  besteht  ferner  eine  Schnittstel¬ 
le  zur  SM-Adreva,  einem  anschlie¬ 
ßend  erläuterten  Adressenverwal¬ 
tungsprogramm  der  gleichen  Pro¬ 
gramm-Reihe. 

Damit  beim  Laden,  Löschen  oder 
Abspeichern  keine  ungewollten 
Datenverluste  entstehen,  sind  zahl¬ 
reiche  Sicherungen  vorgesehen, 
zum  Beispiel  wird  vor  jedem  Lö¬ 
schen  des  Arbeitsspeichers  (f2  im 
Hauptmenü)  gefragt,  ob  die  Funk¬ 
tion  auch  wirklich  ausgeführt  wer¬ 
den  soll. 

Besonders  gefallen  hat  mir,  daß  in 
der  Funktion  Laden  (f3  im  Hauptme¬ 
nü)  die  Möglichkeit  besteht,  sich 
den  Inhalt  einer  Diskette  zeigen  zu 
lassen  und  dann  durch  einfaches 
Drücken  der  bestimmten  Nummer 
des  Fües  dieses  zu  laden.  Sollte  der 
Arbeitsspeicher  dabei  nicht  leer 
sein,  wird  dieser  nicht  überschrie¬ 
ben,  sondern  es  wird  eine  Fehler¬ 
meldung  angezeigt. 


Leider  sind  mir  beim  Arbeiten  mit 
SM-Text  auch  einige  nachteilige  Ei¬ 
genschaften  des  Programms  aufge¬ 
fallen.  So  wird  beispielsweise  bei 
längeren  Texten  (mehr  als  100  Zei¬ 
len)  die  Verarbeitungsgeschwin¬ 
digkeit  immer  langsamer,  bis  sie  bei 
voller  Ausnutzung  des  Arbeitsspei¬ 
chers  fast  zum  Stülstand  kommt.  Es 
ist  deshalb  sinnvoll,  immer  nur  eine 
Seite  (66  Zeilen)  zu  schreiben,  diese 
abzuspeichem,  die  Seitenzahl  im 
Textnamen  um  eins  zu  erhöhen  und 
die  nächste  Seite  zu  schreiben. 

Da  sich  die,  sonst  sinnvolle,  Eigen¬ 
schaft  des  Programms,  alle  Texte  so 
zu  drucken  wie  sie  auf  dem  Büd- 
schirm  geschrieben  wurden,  bei 
mehrseitigen  Texten  leider  negativ 
auswirkt,  ist  es  ratsam,  jede  Seite  mit 
Leerzeilen  aufzufüllen,  damit  beim 
Drucken  auf  Endlospapier  nicht  auf 
die  Abreißkante  geschrieben  wird. 
Epson-Besitzer  können  sich  natür¬ 
lich  auch  hier  mit  einer  Escape-Se- 
quenz  behelfen.  Macht  man  dies,  so 
kann  man  die  Funktion  Drucken  (f7 
im  Hauptmenü)  voll  ausnutzen.  Es 
wird  einfach  der  Name  des  zu 
druckenden  Textes  in  die  oberste 
Zeile  geschrieben  und  vom  Haupt¬ 
menü  aus  die  Taste  f7  gedrückt.  Der 
Text  wird  dann,  direkt  von  der  Dis¬ 
kette,  Seite  für  Seite  ausgedruckt. 

Sehr  zu  loben  ist  das  deutschspra¬ 
chige  Handbuch,  das  nur  wenige 
Fragen  offen  läßt.  Eine  von  diesen 
Fragen  ist  die  Ansteuerung  von  an¬ 
deren  Schriftarten  und  Textforma¬ 
tierungsfunktionen,  wie  sie  bei¬ 
spielsweise  von  Epson-Druckern 
verarbeitet  werden  können.  Dort 
wird  lediglich  angedeutet,  daß  man 
durch  Schreiben  des  t -Zeichens  mit 
den  nachgestellten  Steuerzeichen 
diese  Funktionen  erreichen  könnte. 

Nach  einigem  Probieren  ist  es  mir 
dennoch  gelungen,  alle  Schriftarten 
der  Epson-Drucker  auf  das  Papier 
zu  bringen.  So  wird  beispielsweise 
durch  t  ä  die  »Escape-Sequenz 
(CHR$(27))«  gesendet.  Stellt  man  da¬ 
hinter  ein  großes  M,  ist  man  im 
Schönschreibmodus.  Oder  durch  t 
ä-1  wird  der  Unterstreichmodus  ein¬ 
geschaltet,  durch  t  ä-0  wieder  aus¬ 
geschaltet.  Den  Besitzern  des 
1826-Druckers  steht  diese  Funktion 
leider  nicht  zur  Verfügung.  Dafür 
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können  sie  durch  Drücken  der 
»Commodore«-Taste  zusammen  mit 
einer  Buchstabentaste  den  Gra¬ 
fik-Zeichensatz  ausdrucken. 

Insgesamt  stellt  SM-Text  ein  wirk¬ 
lich  interessantes  Textverarbei¬ 
tungsprogramm  dar,  mit  dem  »fast« 
professionelles  Arbeiten  möglich 
ist.  Da  man  die  beschriebenen 
Nachteile  durch  einige  kleine 
Tricks  umgehen  kann,  ist  ein  kom¬ 
fortables  Schreiben  mit  diesem  Pro¬ 
gramm  gewährleistet.  Auch  das 
Ausdrucken  mehrerer  Exemplare 
des  gleichen  Textes  ist,  obwohl  da¬ 
für  keine  eigene  Funktion  vorhan¬ 
den  ist,  durch  entsprechend  häufi¬ 
ges  (maximal  lOmaliges)  Drücken 
der  f7-Taste,  möglich. 

Bei  SM-Text  ist  es  möglich,  eigene 
Sicherheitskopien  anzufertigen,  was 
einen  von  der  Angst  befreit,  das 
noch  zirka  2500  Mark  teure  Pro¬ 
gramm  durch  einen  Irrtum  zu  verlie¬ 
ren. 

SM-Text-64  hebt  sich  von  anderen 
Textverarbeitungsprogrammen  vor 
allem  dadurch  ab,  daß  es  für  den 
Commodore  64  geschrieben  wurde 
und  dessen  Nachteile  auf  sehr  ele¬ 
gante  Weise  ausgleicht.  Nach  eini¬ 
ger  Zeit  vergißt  man  beim  Arbeiten 
mit  SM-Text,  daß  man  nicht  vor  ei¬ 


nem  Textverarbeitungscomputer 
sitzt  und  das  ist,  so  glaube  ich,  die 
beste  Reverenz. 

Die  dazugehörige  Adressenver¬ 
waltung,  SM-Adreva,  kann  natürlich 
auch  ohne  SM-Text  verwendet  wer¬ 
den,  gewinnt  aber  wesentlich  an 
Einsatzmöglichkeiten,  wenn  sie  im 
Verbund  mit  SM-Text,  beispielswei¬ 
se  zur  Erstellung  von  Formbriefen, 
eingesetzt  wird. 


SM-Adreva,  die  »goldene« 
Adressenverwaltung 

Die  Produktgestaltung  ist  recht 
ansprechend:  Die  Systemdiskette, 
ein  gut  gegliedertes,  deutschspra¬ 
chiges  Handbuch,  und,  was  keines¬ 
falls  eine  Selbstverständlichkeit  ist, 
ein  Service-Scheck,  mit  dem  man 
gegen  Einsendung  von  20  Mark  ei¬ 
ne  zusätzliche  Programmdiskette 
als  Sicherheitskopie  erhalten  kann. 

Erfre^ew^-Kden  bei 
SM-Adreva  alle  vom  SM-fext  her  be¬ 
kannten  Vorteile,  wie  die  deutsche 
DIN-Tastatur,  die  Farbwahlmöglich¬ 
keit  und  die  Anpassung  der 
Druckerparameter  (zum  Beispiel  an 
Epson-Drucker)  mit  übernommen. 

Hat  man  nach  dem  Starten  des 
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Bild  2.  Das  Arbeitsblatt-Hauptmenü  mit  Text 


Programms  die  Einstellung  der 
Drucker-  und  Tastaturparameter 
vorgenommen,  so  werden  diese  ab¬ 
gespeichert  und  sind  fortan  sofort 
nach  dem  Programmstart  wieder 
eingestellt.  Verläßt  man  dieses  Me¬ 
nü  mittels  der  Taste  >A<,  fordert 
das  Programm  den  Benutzer  auf,  ei¬ 
ne  Datendiskette  einzulegen.  Da 
diese  beim  ersten  Start  natürlich 
nicht  vorhanden  ist,  tut  es  zunächst 
auch  eine  leere,  formatierte  oder 
unformatierte  Diskette.  Die  Forma¬ 
tierung  wird  dann  vom  Programm 
selbständig  ausgeführt. 

Nach  der  Formatierung  der  Dis¬ 
kette  kann  man  sich  ruhig  erst  mal 
eine  Tasse  Kaffee  gönnen,  denn  nun 
beginnt  das  Programm  auf  der  Dis¬ 
kette  eine  REL-Datei  anzulegen,  was 
alles  in  allem  fünf  Minuten  dauert, 
Dieser  Vorgang  ist  beendet,  wenn 
die  Bildschirmmaske  erscheint.  Auf 
dieser  Datendiskette  kann  man  nun 
bis  zu  622  Datensätze  (beziehungs¬ 
weise  Adressen)  abspeichem.  Sind 
mehr  Datensätze  zu  verarbeiten, 
kann  jederzeit  eine  weitere  Daten¬ 
diskette  angelegt  werden. 

Die  Bildschirmmaske  des  SM- 
Adreva  ist  vorgegeben  und  kann 
nicht  mehr  verändert  werden,  sie  ist 
aber  so  angelegt,  daß  sie  fast  allen 
Ansprüchen  gerecht  werden  kann 
(Bild  3).  In  der  ersten  Zeile  befinden 
sich  Kundennummer  und  Suchbe¬ 
griff,  in  den  darauffolgenden  Zeilen 
Anrede,  Namel,  Name2,  Zusatz, 
Straße,  Ort  und  Briefanrede.  Ferner 
besteht  die  Möglichkeit,  Telefon¬ 
nummer,  Telexnummer  und  fünf  Zei¬ 
len  Text  einzugeben  (Bild  3). 

Ganz  am  unteren  Rand  sind,  wie  in 
dieser  Reihe  üblich,  wieder  die  Be¬ 
legungen  der  Funktionstasten  ange¬ 
zeigt.  Mit  Taste  fl  werden  Adressen 
gespeichert,  mit  f2  gelöscht,  mit  f3 
gedruckt  und  mit  f4  wird  das  Pro¬ 
gramm  beendet.  Die  letzte  Funktion 
ist  nach  Beendigung  der  Datenein¬ 
gabe  immer  zu  benutzen,  da  sonst 
die  Dateien  auf  der  Diskette  nicht 
abgeschlossen  werden  und  für  im¬ 
mer  verlorengehen  können. 

Grundsätzlich  sind  die  Adressen 
über  zwei  Kriterien  später  wieder¬ 
zufinden:  Entweder  nach  »Kunden¬ 
nummer«  oder  nach  »Suchbegriff«, 
wobei  die  Kundennummer  nur  Zah¬ 
len  zwischen  1  und  622  annehmen 
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darf,  der  »Suchbegriff«  dagegen 
Kleinbuchstaben  und  Ziffern  mit  bis 
zu  zehn  Zeichen. 

Bei  der  Eingabe  der  Adressen  ist 
es  sinnvoll  keine  eigenen  Kunden¬ 
nummern  zu  vergeben,  sondern 
dieses  dem  Programm  zu  überlas¬ 
sen.  Erst  beim  Suchbegriff  kann 
man  dann  entweder  einen  Namen, 
eine  Postleitzahl  oder  ähnliches  ein¬ 
geben.  Hat  man  dies  getan,  so  fragt 
das  Programm:  »Vor/Zurück/Än¬ 
dern/Neueintrag?«  Bei  der  ersten 
Eingabe  ist  natürlich  immer  <N> 
zu  drücken.  Jetzt  ist  es  möglich,  die 
Bildschirmmaske  mit  den  ge¬ 
wünschten  Daten  auszufüllen.  Die 
Cursorfunktionen  bleiben  dabei  in 
vertikaler  Richtung  erhalten,  hori¬ 
zontal  (für  Korrekturen)  ist  die 
DELETE-Taste  zu  verwenden.  Sind 
alle  Daten  eingegeben,  so  kann  der 
Datensatz  durch  Drücken  der 
fl-Taste  abgespeichert  werden. 

Möchte  man  aber  einen  bestehen¬ 
den  Datensatz  verändern,  so  ist 
wahlweise  der  Suchbegriff  oder  die 
Kundennummer  einzugeben  und 
durch  RETURN  abzuschließen. 
Drückt  man  dann  die  Taste  <A>, 
können  die  gewünschten  Änderun¬ 
gen  vorgenommen  und  abgespei¬ 
chert  werden  (fl).  Wenn  aber  der 
Suchbegriff  oder  die  Kundennum¬ 
mer  nicht  richtig  waren,  so  besteht 
die  Möglichkeit,  durch  Drücken  von 
<V>  vorwärts  und  von  <Z>  zu¬ 
rückzublättern. 

Besonders  wichtig  ist  die  Funktion 
des  Drückens  von  Adressen.  Dazu 
ist  die  betreffende  Adresse  zu¬ 
nächst  zu  suchen  (wie  bei  Adresse 
ändern).  Erscheint  die  gewünschte 
Adresse  auf  dem  Bildschirm,  kann 
sie  durch  f5  ausgedruckt  werden. 
Oft  ist  es  aber  auch  nötig,  eine 
Adreßliste  auszudrucken,  dazu 
wird,  ausgehend  von  einer  leeren 
Bildschirmmaske,  wieder  die  Taste 
f5  gedrückt.  Nun  besteht  die  Aus¬ 
wahl  zwischen  einer  Liste  und  Auf¬ 
klebern,  bei  einer  Liste  werden  alle 
Daten  der  Datensätze  ausgedruckt, 
bei  Aufklebern  nur  Name  und  An¬ 
schrift. 

Der  Ausdruck  erfolgt  immer  al¬ 
phabetisch,  wenn  nach  einem  Such¬ 
begriff  geordnet  gedruckt  werden 
soll.  Bei  der  Kundennummer  be¬ 
ginnt  der  Ausdruck  mit  der  ersten 


Nummer  und  endet  mit  der  letzten 
gespeicherten  Kundennummer. 

Die  Erstellung  von  Formbriefen  ist 
wohl  eine  der  interessantesten  Mög¬ 
lichkeiten  der  Adreßverwaltung. 
Hierzu  ist  aber,  wie  bereits  gesagt, 
das  Programm  SM-Text  notwendig. 
Ist  dieses  ebenfalls  vorhanden,  so 
kann  nicht  nur  die  Adresse  in  einen 
geschriebenen  Text,  sondern  auch 
Daten,  wie  beispielsweise  der  Na¬ 
me,  an  beliebiger  Stelle  im  Text  ein¬ 
gefügt  werden.  Dazu  muß  beim 
Schreiben  des  Textes  immer  dann, 
wenn  ein  Name  eingefügt  werden 
soll,  die  Commodore-Taste  und  ein 
<A>  geschrieben  werden.  Auf 
dem  Bildschirm  erscheint  dann  fol¬ 
gendes  Zeichen:  A,  nun  muß  nur 
noch  das  betreffende  Kürzel  (zum 
Beispiel  NI  für  Vornamen)  dahinter¬ 
gesetzt  werden. 

Zum  Ausdruck  ist  das  ganze  dann 
dadurch  zu  bringen,  daß  durch 
Drücken  der  f4-Taste  noch  die 
Adressen  hinzugeladea  ^  werden 
und,  wenn  die  richtige  Adresse  vor¬ 
liegt,  durch  anschließendes  Drük- 
ken  der  <D>-Taste  ausgedruckt 
wird. 

Der  größte  Nachteil  dieses  sonst 
sehr  ansprechenden  Programms  ist 
darin  zu  sehen,  daß  es  nicht  möglich 


ist,  sich  beispielsweise  alle  Perso¬ 
nen  die,  in  einer  Ortschaft  leben 
oder  deren  Name  mit  A  anfängt, 
ausgeben  zu  lassen,  es  sei  denn, 
man  hätte  bei  der  Eingabe  als  Such¬ 
begriff  den  Namen  oder  die  Ort¬ 
schaft  gewählt.  Da  man  damit  aber 
ein  für  alle  Mal  festgelegt  ist,  bleibt 
oft  nichts  anderes  übrig,  als  sich  vie¬ 
le  Adressen  anzusehen,  um  die  ge¬ 
wünschten  Personen  zu  finden.  Bei 
einer  möglichen  Datensatzmenge 
von  622  Einträgen  sicherlich  eine 
Menge  Arbeit. 

Dennoch  stellt  SM-Adreva  (Preis: 
175  Mark)  ein  insgesamt  attraktives 

Adressenverwaltungsprogramm 
dar,  da  eine  echte  deutsche  Tastatur 
und  Druckersteuerung  verwirklicht 
wurde  und  nicht  zuletzt  auch  des¬ 
halb,  weil  die  Möglichkeit  zur  Erstel¬ 
lung  von  Formbriefen  besteht.  Da 
diese  Funktionen  aber  leider  nur  zu¬ 
sammen  mit  dem  zirka  250  Mark  teu¬ 
ren  SM-Text  möglich  ist,  erreichen 
diese  beiden  Programme  zusam¬ 
men  eine  Preiskategorie,  in  die  sich 
möglicherweise  nicht  mehr  jeder 
Hobbyanwender  vorwagt.  Für  eine 
wirkliche  professionelle  Adressen¬ 
verwaltung  reichen  die  beschriebe¬ 
nen  Funktionen  aber  wahrschein¬ 
lich  nicht  aus.  (Amd  Wängler) 
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Von  den  Großen 
auf  den  Kleinen: 

Wordpro 

3  Plus 


Mord  Processor  Three  Plus 
A  Product  of  Professional  Software,  Inc 

by  Steve  Punter 

Printer:  Spinwriter,  Diablo,  Qune, 

TEC,  8027  ,  or  Other?  S 

Lines  Available:  352 

How  Hany  for  »ain  text?  300 
(Min=i76,  Hax=329> 

Printer  Device  M  ?  4 

Printer:  C8M,  ASCII,  or  Spinwriter?  C 
Disk  Drive  Device  **  ?  . 


Menü:  Eingabe  der  Gerätenummer  von  Floppy  und 
Drucker  sowie  Druckerauswahl 


Nach  dem  Laden  und  Starten  des 
Programms  meldet  sich  der 
Computer  mit: 

***  Word  Processor  Three  Plus  *** 
A  Product  of  Professional  Software, 
Inc.  by  Steve  Punter 
Printer:  Springwriter,  Diablo,  Qume, 
TEC,  8027,  or  Other? 

Druckerwahl 

Wordpro  3  Plus  ist  mit  den  hier 
aufgeführten  Druckern  (und  einigen 
anderen)  kompatibel.  Sie  können 
nun  Ihren  jeweiligen  Druckertyp 
wählen,  indem  Sie  den  entspre¬ 
chenden  Anfangsbuchstaben  ein¬ 
geben. 

Anschließend  erscheint  eine  an¬ 
dere  Frage  auf  dem  Bildschirm: 
Lines  Available:  352 
How  many  for  main  text? 

(Min  =  176,  Max  =  329) 

Dadurch  erfahren  Sie,  daß  im  Ar¬ 
beitsspeicher  352  Zeilen  (je  40  Zei¬ 
chen)  für  die  Textaufnahme  zur  Ver¬ 
fügung  stehen. 

Mit  der  Frage  »How  many  for  main 
text?«  begegnet  man  einer  wichti¬ 
gen  Besonderheit  von  Wordpro  3 
Plus.  Der  Arbeitsspeicher  ist  näm¬ 
lich  in  zwei  Bereiche  aufgeteilt,  ei¬ 
nen  für  den  Haupttext  (main  text) 
und  einen  für  den  Zusatztext  (switch 
text).  Im  Hauptspeicher  befindet 
sich  der  Text,  den  man  gerade  bear¬ 
beitet.  Der  Zusatzspeicher  eignet 
sich  für  Notizen,  öfter  benötigte  Text¬ 
bausteine  und  vor  allem  für  Adres¬ 
sen,  die  man  im  Serienbrief  verwen¬ 
den  kann.  Auch  das  Inhaltsverzeich¬ 
nis  der  Diskette  läßt  sich  hier  unter¬ 
bringen. 

Das  Programm  verlangt  also  zwi¬ 
schen  176  und  329  Zeilen  für  den 
Hauptspeicher.  Sollte  man  sich  nicht 
für  die  maximale  Angabe  entschei¬ 
den,  werden  die  restlichen  Zeilen 
dem  Zusatzspeicher  zugeschrie¬ 
ben. 

Dann  erkundigt  sich  das  Pro¬ 
gramm  nach  der  Gerätenummer 
des  Druckers  und  gibt  weiter  drei 
Druckertypen  zur  Auswahl.  Auch 
nach  der  Gerätenummer  der  Flop- 
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py  wird  gefragt:  Disk  Drive  Device 
#? 

Achtung:  Wordpro  3  Plus  arbeitet 
nur  korrekt,  wenn  ein  serieller 
Drucker  beziehungsweise  Floppy 
angeschlossen  ist.  Wollen  sie  über 
einen  IEEE-488-Bus  eine  Floppy 
oder  einen  Drucker  betreiben, 
dann  meldet  sich  das  Programm 
lautlos  ab! 

Statuszeile 

Haben  Sie  alle  Eingaben  korrekt 
erledigt,  dann  erscheint  ein  leerer 
Bildschirm  mit  Statuszeile  und  ei¬ 
nem  Cursor: 

Wordpro  3  Plus  :X:I:S:C:NC  =  1  L  =  1 
Diese  Statuszeile  bleibt  immer  auf 
dem  Bildschirm,  auch  wenn  der  Text 
nach  oben  beziehungsweise  unten 
scrollt.  Die  Buchstaben  X:I:S:C:N  ge¬ 
ben  durch  Aufleuchten  an,  in  wel¬ 
cher  der  fünf  Hauptbetriebsarten 
man  sich  befindet. 

X  =  Man  befindet  sich  im  Nebenspeicher 
I  =  Einfügen.  Diese  Betriebsart  ermöglicht 
es  Ihnen,  Wörter,  Zeilen  und  ganze 
Absätze  in  einen  vorhandenen  Text 
einzu  fügen 

S  =  Umschalten  auf  Großschreibung 
C=  Control-Modus.  Wird  durch  Drücken 
der  CTRIrTaste  ein-  und  ausgeschaltet. 
In  dieser  Betriebsart  verwandeln  sich 
die  meisten  Tasten  in  Befehlstasten 
N  =  Zahleneingabe  —  In  diesem  Modus 
sorgt  Wordpro  3  Plus  automatisch  da¬ 
für,  daß  Zahlenkolonnen  dezimalge¬ 
recht  untereinander  geschrieben  wer¬ 
den 

C  =  1 :  L  =  1.  Diese  Zähler  zeigen  an, 
m  welcher  Position  sich  der  Cursor 
gerade  befindet: 

C  =  Angabe  der  Spalte 
L  =  Angabe  der  Zeile 
Bei  Wordpro  3  Plus  braucht  man 
sich  bei  der  Eingabe  des  Textes 
über  dessen  endgültige  Gestalt 
noch  keine  Gedanken  zu  machen. 
Man  hat  vielmehr  noch  die  Möglich¬ 
keit,  nachträgliche  Änderungen  im 
Text  vorzunehmen.  Es  können  Buch¬ 
staben,  Wörter,  Sätze  oder  sogar 
ganze  Absätze  gelöscht,  eingescho¬ 
ben  oder  verschoben  werden.  Das 


Bearbeiten  eines  Textes  ist  sehr  ein¬ 
fach,  da  die  Cursorsteuertasten  wie 
vom  Basic  her  gewohnt  funktionie¬ 
ren.  Die  Return-Taste  ,  ist  lediglich 
nach  Absätzen  oder  Überschriften 
zur  Textformatierung  zu  drücken. 


Textformatierung 

Durch  Formatierungsbefehle  gibt 
man  anschließend  dem  Text  seine 
äußerliche  Gestalt.  Die  Formatie¬ 
rungsbefehle  bestehen  aus  drei  Zei¬ 
chen  und  einer  Zahl  als  Parameter. 
Das  erste  Zeichen  CTRL  und  ”/”  gibt 
an,  daß  es  sich  hier  um  einen  Forma¬ 
tierungsbefehl  handelt,  und  daß  der 
Rest  dieser  Zeile  nicht  gedruckt 
werden  darf.  Die  folgenden  zwei 
Zeichen  stellen  den  Befehl  dar. 

Wordpro  3  Plus  kennt  insgesamt 
23  Formatierungsbefehle:  Hinter 
dem  cm-Befehl  kann  ein  Kommentar 
stehen;  ähnlich  dem  Basic-Befehl 
»REM«.  Folgende  vier  Befehle  wer¬ 
den  jeweils  durch  den  nachfolgen¬ 
den  Parameter  ein-(  =  ^beziehungs¬ 
weise  ausgeschaltet  (=  0).  Der  cn- 
Befehl  zentriert  alle  Textzeilen  zwi¬ 
schen  dem  linken  und  rechten 
Rand.  Normalerweise  ist  der  rechte 
Rand  eines  Textes  »ausgefranst«. 

Der  Blocksatzbefehl  ju  ordnet  den 
Text  an  beiden  Rändern.  Der  ra-Be- 
fehl  bewirkt  nun,  daß  der  rechte 
Rand  bündig  ausgedruckt  wird  und 
links  ein  »Flatterrand«  entsteht. 
Durch  den  lf  Befehl  können  Sie  ei¬ 
nen  zusätzlichen  Zeilenvorschub  be¬ 
wirken.  Den  rechten  und  linken 
Rand  Ihres  Textes  können  Sie  mit 
den  beiden  Befehlen  rm  und  lm  fest¬ 
legen.  Hier  sind  die  Parameter 
(2-163)  erlaubt.  Geben  Sie  diese  Be¬ 
fehle  nicht  ein,  so  setzt  Wordpro  3 
Plus  den  linken  Rand  auf  Spalte  5 
und  den  rechten  Rand  auf  Spalte  75 
(entspricht  DIN-A4-Format).  Der  pp- 
Befehl  meldet  dem  Drucker  das  Pa¬ 
pierformat,  das  heißt  wieviel  Zeilen 
maximal  zur  Verfügung  stehen.  Der 
pg-Befehl  hingegen  gibt  an,  wieviel 
Zeilen  auf  einer  Seite  stehen  sollen. 
Ähnlich  wie  bei  der  Schreibmaschi- 
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•MORDPRO  3  PLUS«»- 


■Ein  hervorragendes'«- 

■TextwerarbeitungssysteH  jetzt  auch*  «• 
•fuer  CoMHOdore  64!rv 

✓cn0:  jui:sp2*- 

Woiien  Sie  Hit  ihren  Connodore  64  Briefe 
schreiben,  Tabellen  und  Rechnungen  erst 
eilen,  dann  ist  Mordpro  3  Plus  nahezu  un 
entbehr  1  ich  . 

Mordpro  3  Plus  ist  Kein  absolut  neues  Pr 

??5l?CA.fEeh,§l52f‘SeJ?rSnsl'8o3i<,?S?<,a£ 

rdpro  3  Plus  seit  . ..| 


Wordpro  3  Plus  ist  kein  absolut  neues 
Programm,  denn  für  die  »großen« 
Commodore-Computer  CBM  3032,  4032 
und  8032  ist  es  seit  langem  bekannt. 

Wer  einmal  damit  Briefe  und  dergleichen 
geschrieben  hat,  wird  sich  nur  sehr  schwer 
von  diesem  komfortablen  Programm 
trennen  können.  Es  ist  seit  einiger  Zeit 
auch  für  den  Commodore  64  verfügbar. 


Wordpro  3  Plus  im  Eingabemodus 

ne  kann  mit  dem  sp-Befehl  der  Zei¬ 
lenabstand  eingegeben  und  mit 
dem  ma-Befehl  der  Rand  gelöscht 
werden.  Mit  fp  wird  ein  Seitenum¬ 
bruch  erzwungen. 

Wollen  Sie  im  Text  eine  entspre¬ 
chende  Anzahl  Leerzeilen  haben, 
so  können  Sie  dies  durch  den  ln- 
Befehl  und  der  Angabe  der  Anzahl 
der  Leerzeilen  erreichen.  Der  vp- 
Befehl  erzeugt  automatisch  den  in 
der  nachfolgenden  Zahl  festgeleg¬ 
ten  Zeilenvorschub  vom  Beginn  je¬ 
der  neuen  Seite  an.  Für  Schön¬ 
schreibdrucker  kann  man  die 
Schreibdichte  pt  und  Zeilendichte  fa 
jeweils  in  Zoll  wählen.  Müssen  Sie 
während  des  Drückens  zum  Bei¬ 
spiel  das  Typenrad  wechseln,  so  ge¬ 
ben  Sie  den  ps-Befehl  und  den  ent¬ 
sprechenden  Kommentar  ein.  Wenn 
der  Computer  auf  dieses  Zeichen 
stößt,  hält  er  an,  gibt  den  Kommentar 
in  der  Statuszeile  aus  und  wartet  auf 
das  Drücken  der  »C«-Taste  um  fort¬ 
zufahren. 

Sie  haben  die  Möglichkeit,  bei 
längeren  Dokumenten  jeweils  am 
Anfang  einer  jeden  Seite  eine  Kopf¬ 
zeile  und  am  Ende  eine  Fußzeile  zu 
drucken.  Die  Kopfzeile  steht  hinter 
dem  Formatierungsbefehl  hd  und 
die  Fußzeile  hinter  dem  ft-Befehl. 
Der  linke  und  rechte  Rand  der  Kopf- 
zeile  kann  separat  mit  hl  bezie¬ 
hungsweise  hr  programmiert  wer¬ 
den.  Die  Kopfzeile  kann  auch  eine 
»mitzählende«  Seitennummer  ent¬ 
halten.  Wollen  Sie  allerdings,  daß 
mit  dem  Zählen  nicht  bei  1  begon¬ 
nen  wird,  sondern  zum  Beispiel  bei 
25,  dann  geben  Sie  einfach  den  Be¬ 
fehl  p#25  ein. 

Außer  den  Formatierungsbefeh¬ 
len  gibt  es  noch  die  Control-Befehle. 
Wurde  die  CTRL-Taste  gedrückt,  so 
befindet  man  sich  im  Controlmodus 
(C  in  der  Statuszeile  leuchtet  auf), 
und  die  meisten  Tasten  werden  zu 
Befehlstasten.  Die  > -Taste  schaltet 
den  »Disk-Command«  ein;  das  heißt 
man  kann  Disketten  formatieren, 
Programme  löschen  oder  umbe¬ 
nennen  und  so  weiter. 


Die  > -Taste  fragt  den  Disk-Status 
ab.  Durch  »CTRL«-A  können  Sie  häu¬ 
fig  benötigte  Textbausteine  aus  dem 
Nebenspeicher  abrufen.  Das  O 
steht  für  Output  und  schaltet  den 
Drucker  ein.  Mit  »CTRL«-G  kann  der 
Cursor  auf  eine  bestimmte  Zeile  ge¬ 
setzt  werden.  Wenn  Sie  bei  der  Text¬ 
eingabe  »CTRL«-B  drücken,  so  er¬ 
scheint  auf  dem  Schirm  zunächst  nur 
ein  Grafikzeichen.  Beim  Ausdruck 
allerdings  holt  sich  das  Programm 
bei  jedem  B  eine  Textvariable  aus 
dem  Nebenspeicher.  Dies  eignet 
sich  vor  allem  für  Serienbriefe.  So 
können  zum  Beispiel  die  Adressen 
mehrerer  Personen  im  Nebenspei¬ 
cher  untergebracht  werden.  Das 
Programm  holt  sich  dann  bei  jedem 
Ausdruck  eine  neue  Ac^re^se  aus 
dem  Nebenspeicner. 

Controlmodus 

Das  Inhaltsverzeichnis  der  Disket¬ 
te  wird  mit  »CTRL«-0  in  den  Speicher 
gelesen.  Die  E-Taste  schaltet  auf 
Löschbetrieb.  Bei  nachfolgendem  A 
wird  alles  gelöscht.  Es  gibt  jedoch 
auch  die  Möglichkeit,  selektiv  nur 
bestimmte  Worte,  Sätze,  Absätze 
oder  Bildschirmzeilen  zu  löschen 
oder  einfach  alle  Zeichen  ab  der 
Cursor-Position. 

Wollen  Sie  einen  bestimmten  Ab¬ 
satz  im  Text  verschieben,  so  können 
Sie  ihn  zuerst  mit  »CTRL«-T  auf  eine 
andere  Stelle  übertragen. 

Sehr  nützlich  ist  auch  die  »FIND- 
Funktion«,  mit  der  man  lokal  (im  Text) 
oder  global  (auf  Diskette)  bestimmte 
Zeichenketten  suchen  kann.  Mit  ei¬ 
ner  ähnlichen  Funktion  kann  eben¬ 
falls  eine  Zeichenkette  gesucht  und 
automatisch  gegen  eine  andere  er¬ 
setzt  werden.  Wurde  bei  der  »FIND- 
Funktion«  die  gewünschte  Zeichen¬ 
kette  gefunden,  so  bleibt  der  Cursor 
unmittelbar  dahinter  stehen.  Mit 
»CTRL«-H  setzt  das  Programm  die 
Suche  nach  einem  weiteren  Auftre¬ 
ten  der  Zeichenkette  fort.  In  jeder 
beliebigen  Spalte  des  Bildschirms 
kann  ein  Tabulator  gesetzt  oder  ge¬ 
löscht  werden. 


Wordpro  3  Plus  kann  Zahlenkolon¬ 
nen  addieren  und  subtrahieren.  Für 
diesen  Zweck  schaltet  man  mit 
»CTRL«-N  auf  Zahleneingabe  um. 
Das  N  in  der  Statuszeile  leuchtet  auf. 
In  dieser  Betriebsart  können  nun 
Rechenoperationen  durchgeführt 
werden. 

Eine  Diskette  kann  mit  »CTRL«- 
RUN/STOP  initialisiert  werden.  Um 
Text  zu  laden  oder  zu  speichern,  hat 
man  »SHIFT«-CLR/HOME  zu 
drücken.  In  der  Statuszeile  erschei¬ 
nen  dann  folgende  Befehle:  »Recall, 
Memorize,  or  Insert«.  Der  Recall- 
Befehl  lädt  ein  Textfile  von  der  Dis¬ 
kette;  der  Memorize-Befehl  spei¬ 
chert  ein  Textfile  auf  Diskette.  Mit  In¬ 
sert  schließlich  kann  ein  Textfile  von 
der  Diskette  in  den  Text  eingefügt 
werden. 

Viele  dieser  Control-Befehle  sind 
noch  weiter  in  Unterfunktionen  auf¬ 
gegliedert.  Es  erscheint  hier  jedoch 
nicht  sinnvoll,  alle  diese  Unterfunk¬ 
tionen  aufzuführen. 

Eine  Änderung  der  Bildschirmfar¬ 
ben  ist  von  Wordpro  3  Plus  ebenfalls 
vorgesehen.  Hierzu  dienen  die 
Funktionstasten: 

F7  +  F5  ändert  die  Rahmenfarbe 
F7  +  F3  ändert  die  Bildschirmfarbe 
F7  +  Fl  ändert  die  Zeichenfarbe 

Wordpro  3  Plus  ist  für  285  Mark  er¬ 
hältlich.  Leider  ist  das  Handbuch 
nicht  im  Preis  inbegriffen.  Für  die¬ 
ses  sind  noch  extra  22  Mark  zu  be¬ 
zahlen. 

Fazit 

Ich  finde,  daß  man  mit  diesem  Pro¬ 
gramm  in  kürzester  Zeit  optisch  her¬ 
vorragende  Texte  erstellen  kann.  Ei¬ 
ne  Vielzahl  von  Funktionen  ermög¬ 
licht  nach  einer  gewissen  Eingewöh¬ 
nungszeit  eine  sehr  schnelle  Text¬ 
eingabe,  auch  in  Verbindung  mit 
speziellen  Strukturen  wie  Tabellen 
oder  ähnlichem.  Die  komfortablen 
Editiermöglichkeiten  tragen  einiges 
zur  sehr  guten  Benutzerfreundlich¬ 
keit  bei.  Insgesamt  also  wirklich  ein 
Textprogramm,  dessen  Anschaf¬ 
fung  sich  lohnt. 

(Christian  Quirin  Spitzner) 
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Blitztext  möchte  ein  einfaches  aber  wirkungsvolles 
Werkzeug  für  die  Erledigung  der  persönlichen  Schreib¬ 
arbeiten  sein.  Kann  es  diese  Anforderung  erfüllen? 


den  soll.  Eigentlich  ist  der  Wortpro¬ 
zessor  nun  bereit,  einen  Text  aufzu¬ 
nehmen  und  es  kann  auch  schon  ge¬ 
schrieben  werden.  Dafür  bietet  der 
Speicher  Platz  für  27000  Zeichen, 
das  entspricht  etwa  7  bis  8  Schreib¬ 
maschinenseiten. 


Die  Voraussetzung  dafür,  daß  es 
dem  Commodore  64  zusammen 
mit  einem  Textverarbeitungs¬ 
programm  gelingt,  die  gute  alte 
Schreibmaschine  in  die  Ecke  zu  ver¬ 
bannen,  ist  klar:  Ein  solches  System 
muß  mindestens  die  gleiche,  mög¬ 
lichst  noch  eine  höhere  Leistung  und 
besseren  Bedienungskomfort  bie¬ 
ten, 

Bliztext  verspricht  dabei,  dem  Be¬ 
diener  in  allen  Situationen  hilfreich 
zur  Seite  zu  stehen,  wenn  er  erst  ein¬ 
mal  mit  der  Bedienung  dieses  Wort¬ 
prozessors  vertraut  ist.  Daß  dieser 
Vorgang  des  Kennenlemens  eine 
umfangreiche  Angelegenheit  ist, 
merkt  der  interessierte  Benutzer 
spätestens  dann,  wenn  er  das  Hand¬ 
buch  zum  ersten  Mal  durchblättert. 
Dort  findet  er  auf  fast  jeder  Seite  ei¬ 
ne  Fülle  von  Steuerzeichen,  die  es  zu 
beherrschen  heißt.  Von  dieser  Infor¬ 
mationsfülle  sollte  man  sich  aber 
nicht  verwirren  lassen,  denn  im  täg¬ 
lichen  Gebrauch  werden  selten  alle 
Befehle  benötigt.  Außerdem  können 
noch  einige  Tricks  die  Arbeit  er¬ 


leichtern.  Es  ist  deshalb  zunächst 
sinnvoll,  dem,  glücklicherweise  stu¬ 
fenweise  aufbauenden  Handbuch 
schrittweise  zu  folgen. 

Erhältlich  ist  Bliztext  sowohl  als 
Disketten-  als  auch  als  Kassettenver¬ 
sion,  wobei  man  bei  der  letzteren  na¬ 
türlich  die  Funktionen  des  Koman- 
dokanals  #  15  der  Diskettenstation 
nicht  nutzen  kann;  ganz  abgesehen 
von  der  geringen  Arbeitsgeschwin¬ 
digkeit  der  Datasette.  Aber  auch  die 
Besonderheiten  der  Diskettensta¬ 
tion,  wie  beispielsweise  das  Einle¬ 
sen  von  Files  wähTenu  der  Textfor¬ 
matierung,  drängen  zur  Verwen¬ 
dung  des  VC  1541-Laufwerkes. 

Das  erste  Bild,  mit  dem  sich  Bliz¬ 
text  nach  dem  Laden  beim  Benutzer 
meldet,  ist  die  Texteingabemaske. 
Sie  besteht  am  oberen  Rand  aus  ei¬ 
ner  sogenannten  Statuszeile,  die 
Auskunft  gibt  über  die  Anzahl  der 
geschriebenen  Zeichen  pro  Zeile, 
den  Gesamttext,  den  verbleiben¬ 
den  Speicherplatz  und  über  den  Zu¬ 
stand  des  Kopierregisters,  dessen 
Funktion  später  noch  erläutert  wer- 
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Das  Schreiben 


Die  Emgabe  von  Texten  gestaltet 
sich  einfach,  denn  man  braucht  nur 
darauf  los  zu  schreiben.  Der  Text 
schiebt  sich  dabei  langsam  in  hori¬ 
zontaler  Richtung  von  rechts  nach 
links  weiter,  bis,  ab  der  75.  Spalte, 
ein  Warnton  dazu  auffordert,  mittels 
Return  in  eine  neue  Zeile  zu  sprin¬ 
gen.  So  fährt  man  fort,  bis  der  ge¬ 
samte  Text  eingegeben  ist.  Hätten 
wir  nun  noch  unsere  alte  Schreibma¬ 
schine,  wäre  der  Text  unveränder¬ 
lich  fertig  und  selbst  das  Einfügen 
eines  einzelnen  Wortes  sehr  schwie¬ 
rig.  Nicht  so  bei  Bliztext;  es  bietet 
noch  einige  Möglichkeiten,  mit  den 
eingegebenen  Buchstaben  umzu¬ 
gehen.  Natürlich  ist  es  machbar, 
den  Text  jetzt  schon  auszudrucken. 
Damit  beraubt  man  sich  aber  der 
Besonderheiten,  die  einen  Text  erst 
ansehnlich  und  richtig  machen. 

Haben  sie  sich  verschrieben?  Kei¬ 
ne  Angst,  durch  Verwendung  der 
Cursortasten  auf  die  falsche  Stelle 
fahren  und  verbessern.  Auch  wenn 
die  Korrektur  mehr  Platz  in  An¬ 
spruch  nimmt  als  der  ursprüngliche 
Text,  das  Einfügen  der  zusätzlichen 
Zeichen  ist  kein  Problem,  denn  der 
Text  verschiebt  sich  automatisch 
nach  rechts  beziehungsweise  nach 
unten.  Auch  ist  es  möglich,  den  gan¬ 
zen  Text  nach  einzelnen  Worten  zu 
durchsuchen  und  diese,  falls  ge¬ 
wünscht,  durch  andere  zu  ersetzen. 

Das  Erstellen  von  Serienbriefen 
wird  somit  wesentlich  erleichtert. 
Natürlich  kann  man  auch  ganze 
Textblöcke  markieren,  löschen 
oder  verschieben.  Dies  geschieht 
mit  Hilfe  des  oben  genannten  Ko¬ 
pierregisters,  in  das  bis  zu  4000  Zei¬ 
chen  eingespeichert  und  bei  Be¬ 
darf,  an  jeder  Stelle  des  Textes  wie¬ 
der  aufgerufen  werden  können. 
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Eine  Besonderheit  des  Bliztext 
Wortprozessors  ist  der  sogenannte 
»Formatter».  Es  handelt  sich  dabei 
um  eine  Funktion,  mit  der  dem  Text 
die  Form  gegeben  werden  kann,  in 
der  er  später  auf  dem  Drucker  er¬ 
scheinen  soll.  In  diesem  Formatier¬ 
modus  ist  es  möglich,  Texte  zu  zen¬ 
trieren,  Zeilen-  und  Seitenlängen  zu 
definieren,  einen  rechten  Randaus¬ 
gleich  (Blocksatz)  durchzuführen 
und  Absätze  hervorzuheben.  Ferner 

Umfangreiche 

Formatierungsbefehle 

kann  eine  Seitennumerierung  ein¬ 
gestellt  werden  und  Steuerkomman¬ 
dos  an  den  Drucker  und  die  Floppy 
übermittelt  werden.  Somit  ist  es 
möglich,  die  vorhandenen  Funktio¬ 
nen  des  jeweiligen  Druckers  anzu¬ 
steuern,  wie  beispielsweise  Fett¬ 
druck,  Unterstreichen  und  Groß¬ 
schrift  bei  EPSON-Druckern.  Beson¬ 
ders  hervorzuheben  ist  die  Fähig¬ 
keit,  durch  Formatierbefehle  festzu¬ 
legen,  daß  Files,  die  auf  Diskette  be¬ 
ziehungsweise  Kassette  abgespei¬ 
chert  sind,  in  bestehende  Texte  ein¬ 
gefügt  werden. 

Damit  sind  die  Sonderfunktionen 
des  Bliztext  aber  bei  weitem  noch 
nicht  erschöpft.  Ein  sicherlich  nicht 
unwichtiges  Unterprogramm  ist  die 
Verwendung  der  Kommandozeile, 
die  sich  am  unteren  Bildschirmrand 
befindet.  Eine  Abbildung  der  ver¬ 
fügbaren  Befehle  ist  in  Bild  1  darge¬ 
stellt.  Diese  reichen  vom  Setzen  der 
Tabulatorbreite  bis  zum  Terminal¬ 
mode. 


Oer  Terminalmode 


Wer  sich  unter  diesem  Begriff  au¬ 
genblicklich  noch  nichts  vorstellen 
kann,  wird  beim  Studium  des  Hand¬ 
buches  über  diese  Funktion  über¬ 
rascht  sein.  Im  Terminalmode  ist  es 
dem  C  64  möglich,  mit  der  Außen¬ 
welt  in  Verbindung  zu  treten.  Sei  es 
mit  anderen  Computern  direkt, 
oder  via  Modem  und  Telefon  mit 
weiter  entfernten  Computern.  Das 


Übermitteln  und  Empfangen  von 
Texten  und  Daten  von  einem  Ort 
zum  anderen  wird  dadurch  unter¬ 
stützt.  Damit  bei  der  Herstellung  der 
Verbindung  kein  unliebsamer  Da¬ 
tenverlust  entsteht,  ist  die  notwendi¬ 
ge  Hardware  und  deren  genauer 
Anschluß  glücklicherweise  im 
Handbuch  beschrieben.  Etwas 
handwerkliches  Geschick  und  tech¬ 
nisches  Verständnis  muß  :  oer  den¬ 
noch  vorausgesetzt  werden. 

Die  zum  Test  vorliegende  Version 
des  Bliztextes  war  zusätzlich  zu  den 
oben  genannten  Funktionen  um 
zwei  weitere  Unterprogramme  ge¬ 
genüber  der  früheren  Version  er¬ 
weitert  worden.  Diese  sind  zum  ei¬ 
nen  die  Eingabemöglichkeit  von 
Überschriften  und  Fußnoten,  und 
zum  anderen  eine  Rechenfunktion, 
mit  der  im  Text  Additionen  und  Sub¬ 
traktionen  ausgeführt  werden  kön¬ 
nen. 

Leider  ist  bei  so  viel  Licht  auch  im¬ 
mer  etwas  Schatten.  Dieser  wird  ins¬ 
besondere  dadurch  deutlich,  daß 
sich  die  Programmierung  der  vielen 
Sonderfunktionen  mitunter  relativ 
umständlich  gestaltet.  Da  große  Tei¬ 
le  des  Programmes  durch  CTRL- 
Sequenzen  (Bild  2)  gesteuert  wer¬ 
den  und  oft  die  Eingabe  mehrerer 
dieser  Sequenzen  notwendig  sind, 
kommt  man  gelegentlich  um  ein 
wahres  Tastaturstakkato  nicht  her¬ 
um.  Umgehbar  ist  dieser  Arbeits¬ 
aufwand,  zumindest  teilweise,  in¬ 
dem  Files  mit  den  bevorzugten  For¬ 
matierungsbefehlen  angelegt  wer¬ 
den.  Ferner  ist  es  empfehlenswert, 
sich  eine  eigene  Referenzliste  aller 
Befehle  anzufertigen,  da  diese  im 
Handbuch  leider  nicht  abgedruckt 
ist.  Nicht  zuletzt  wegen  der  vielen 


Auswahlmöglichkeiten,  die  Bliztext 
bietet,  ist  eine  sichere  Bedienung 
des  Programms  wahrscheinlich  erst 
nach  einiger  Übung  zu  erreichen, 
dann  aber  stehen  einem  Möglich¬ 
keiten  zur  Verfügung,  mit  der  die  an¬ 
fangs  erwähnte  Schreibmaschine  si¬ 
cherlich  nicht  aufwarten  kann.  Letzt¬ 
lich  bleibt  nur  zu  wünschen,  daß 
auch  bei  diesem  Programm  der 
deutsche  Zeichensatz  auf  dem  Bild¬ 
schirm  noch  realisiert  wird,  auf  dem 
Drucker  können  diese  Zeichen 
durch  Eingeben  der  entsprechen¬ 
den  Zeichen  (zum  Beispiel  eckige 
Klammer  links  für  das  ö)  umgangen 
werden. 


Fazit 


Bliztext  ist  ein  leistungsfähiges 
Text  Verarbeitungsprogramm,  des¬ 
sen  Bedienung  zwar  etwas  umständ¬ 
lich  und  gewöhnungsbedürftig  ist, 
dessen  Leistungskriterien  diesen 
Nachteil  aber  sicher  ausgleichen. 
Besonders  hervorzuheben  ist  die 
Möglichkeit  der  Datenübertragung 
zu  anderen  Computern.  Diese  er¬ 
möglicht  zum  Beispiel  eine  »orts¬ 
unabhängige  Texteingabe«  in  der 
Bahn  oder  im  Flugzeug  auf  soge¬ 
nannten  Handheld  Computern  wie 
dem  TANDY-Modell  100  und  der 
späteren  Übertragung  des  Textes 
auf  den  C  64.  Gemessen  am  Preis 
von  199  Mark  kann  dem  Bliztext  ein 
sehr  gutes  Preis-Leistungverhältnis 
bestätigt  werden,  das  sich  dadurch 
noch  verbessern  läßt,  daß  man  sei¬ 
ne  alte  Schreibmaschine  verkauft. 

(Arnd  Wängler) 
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Sie  kommen  aus  den 
unendlichen  Weiten  des  Weltalls. 
Retten  Sie  die  Erde  vor  außer 
Kontrolle  geratenen  Robotern! 


Die  Roboter  (AEs)  wurden  ur¬ 
sprünglich  ins  Universum  ge¬ 
schickt,  um  in  einer  multinatio¬ 
nalen  Aktion  die  Welt  zu  retten.  Die 
AEs  sind  jedoch  außer  Kontrolle  ge¬ 
raten  und  greifen  nun  die  Erde  an. 

Sie  haben  jetzt  die  Aufgabe,  die 
Angriffe  der  AEs  abzuwehren  und 
diese  in  den  Weltraum  zurückzu¬ 
drängen.  Die  Roboter  greifen  im¬ 
mer  als  Formation  an.  Hat  man  drei 
dieser  Formationen  bis  auf  den  letz¬ 
ten  AE  ausgeschaltet,  so  kommt  man 
ins  nächste  Schlacht-Bild.  Sie  haben 
nur  wenig  Zeit  eine  Formation  völlig 
zu  zerstören,  denn  die  AEs  verlas¬ 
sen  nach  kurzer  Zeit  das  Schlacht¬ 
feld  wieder.  Aber  kaum  haben  die¬ 
se  das  Feld  geräumt,  ist  auch  schon 
eine  neue  vollständige  Formation 
zur  Stelle,  um  den  Angriff  fortzufüh¬ 
ren. 

RR 


Zu  steuern  ist  das  Spiel  nur  mit  Joy¬ 
stick.  Mit  dem  Steuerknüppel  wer¬ 
den  die  Raketen-Batterien  nach 
links  beziehungsweise  rechts  be¬ 
wegt.  Das  Abfeuern  der  Raketen  er¬ 
folgt  mit  der  Auslösetaste.  Doch  hier 
liegt  eine  Raffinesse  des  Spiels.  Die 
Raketen  detonieren  erst  nach  dem 
Loslassen  der  Taste.  So  muß  der 
Spieler  die  Raketen  genau  in  der 
Flugbahn  der  AEs  zum  Detonieren 
bringen.  Dies  erfordert  außeror¬ 
dentliche  Umsicht  und  schnellstes 
Reaktionsvermögen,  da  die  AEs  zu 
allem  Überfluß  noch  eigene  Ge¬ 
schosse  abfeuem,  denen  man  aus- 
weichen  muß. 

Das  Spiel  besteht  aus  vier 
Schlacht-Bildern,  welche  die  grafi¬ 
schen  Möglichkeiten  des  VC  20  voll 
ausschöpfen.  Auch  die  vier  Tonge¬ 
neratoren  des  Völkscomputers  blei¬ 


ben  nicht  unausgenutzt.  Hat  man 
einmal  alle  vier  Schlachtfelder 
überwunden,  so  beginnt  das  Spiel 
von  vorne,  wird  aber  schwieriger, 
da  die  AEs  noch  trickreicher  angrei¬ 
fen. 

Das  Spiel  A.E.  von  Broderbund 
Software  ist  zum  Preis  von  zirka  109 
Mark  als  ROM-Modul  für  den  VC  20 
erhältlich. 

Fazit: 

Wer  sich  ein  Schießspiel  zulegen 
will,  bei  dem  man  nicht  blind  und 
monoton,  sondern  gezielt  schießen 
muß,  der  wird  bei  diesem  Spiel  be¬ 
stimmt  nicht  so  schnell  die  Lust  ver¬ 
lieren.  Ein  gutes  Schießspiel  zeich¬ 
net  sich  eben  durch  eine  dauerhafte 
Spielmotivation  aus. 

(Christian  Quirin  Spitzner) 
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Dieses  Spiel  weist  zehn  verschiedene  Szenen  mit 
unterschiedlichen  Schwierigkeiten  auf  und  ist  für 
.  125  Mark  im  Handel  erhältlich. 


Laut  Anleitung  sind  Sie  nach  dem 
Laden  des  Programms  von  Dis¬ 
kette  »Time-Master-Time«  und 
müssen  mit  Hilfe  einer  Zeitmaschine 
Dinosaurier-Eier  und  Jung-Dino- 
saurier  aus  der  Steinzeit  in  die  Zu¬ 
kunft  retten. 

Der  Anblick  des  ersten  Screens 
läßt  einen  glauben,  daß  man  es  mit 
einem  weiteren  Kletter-Hüpf-Renn- 
Spielchen  zu  tun  hat.  Doch  das 
täuscht. 

Dieses  Spiel  ist  weitaus  komple¬ 
xer  aufgebaut.  Sie  selbst  erschei¬ 
nen  in  Level  0  in  einem  Zeittor  und 
müssen  jedesmal,  nachdem  Sie  so 
viel  Eier,  wie  Sie  tragen  können  — 
insgesamt  drei  Stück  —  gesammelt 
haben,  in  das  Tor  zurückkehren.  Sie 
schicken  die  Eier  in  die  Zukunft,  flie¬ 
gen  selber  mit  und  erscheinen  wie¬ 
derum  irgendwo  auf  der  Szene. 
Auch  haben  Sie  die  Möglichkeit,  ab¬ 


sonderlich  mutierte  Blumen  zu  fres¬ 
sen,  »Power  Flowers«  genannt,  die 
Ihnen  die  Kraft  geben,  mehr  als  drei 
Eier  zu  tragen. 

An  der  Ausführung  dieser  Hand¬ 
lungen  werden  Sie  von  wie  wild  her- 
umlrippelnden  und  sclileichenden 
Spinnen,  Schlangen  und  Tausend¬ 
füßlern  gehindert.  Diesen,  sonst  so 
possierlichen  Tierchen,  können  Sie 
durch  Herabrollen  von  heimtücki¬ 
scherweise  an  der  Decke  ange¬ 
brachten  Felsbrocken  ein  Ende  ma¬ 
chen,  was  einen  dicken  Pluspunkt 
entspricht.  Bei  Berührung  dersel¬ 
ben  wird  Ihnen  jedoch  Lebensener¬ 
gie  abgezapft  und  Sie  müssen  sich 
schleunigst  in  Ihr  Zeittor  zurückzie¬ 
hen,  um  diese  wieder  auf  100  Pro¬ 
zent  zu  bringen.  Ist  dies  nicht  der 
Fall,  verwandeln  Sie  sich  in  eine 
Spinne,  worauf  Ihr  zweites  Leben 
beginnt. 


Weiterhin  versucht  immer  wieder 
der  Fuß,  der  um  Ihre  klemen  Nach¬ 
folger  besorgten  Dinosauriermut¬ 
ter,  der  fast  ein  Drittel  des  Bild¬ 
schirms  ausfüllt,  Sie  zu  zerquet¬ 
schen.  Daraufhin  bricht  Ihr  drittes 
Leben  an. 

Hervorragend  gemacht  ist  die 
Punktezählung,  die  nicht  —  wie  bei 
anderen  Spielen  —  in  Tausendem 
oder  Millionen  zählt,  sondern  in  rea¬ 
listischen  Einerschritten.  Da  sind 
100  Punkte  schon  eine  echte  Lei¬ 
stung!  Außerdem  gibt  es  noch  die 
schöne  Möglichkeit,  sich  in  höhere 
Levels  zu  teleportieren.  Es  werden 
aber  die,  in  diesem  Level  noch  nicht 
gesammelten  Eier,  als  Minuspunkte 
abgezogen,  wodurch  es  schon  ein¬ 
mal  passieren  kann,  daß  man  mit 
250  Minuspunkten  im  Level  10  an¬ 
kommt. 

Insgesamt  ist  es  eines  der  schön¬ 
sten  und  einfallsreichsten  Spiele 
der  letzten  Zeit,  bei  dem  nur  der 
Sound  nicht  ganz  dem  Niveau  ent¬ 
spricht. 

(Andreas  von  Lepel) 
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Fortsetzung  von  Seite  41 


Sequenz 

Eine  Sequenz  liegt  vor,  wenn  meh¬ 
rere  Anweisungen  hintereinander 
ausgeführt  werden  sollen  (Bild  1). 

In  die  jeweiligen  Kästchen  trägt 
man  jeweils  einen  Befehl  ein  oder 
auch  die  Bezeichnung  kompletter 
Progiammteile. 

Auswahl 

Man  unterscheidet  drei  Formen: 
IF..THEN  /  IF..THEN..ELSE 7  CASE 

Man  benutzt  diese  Formen,  um  Be¬ 
fehle  oder  Befehlsgruppen  oder 
auch  komplette  Programmteile  nur 
dann  ausführen  zu  lassen,  wenn  ei¬ 
ne  Bedingung  erfüllt  ist  (Bild  2,  3 
und  4). 

Wiederholung 

Man  benutzt  zwei  Formen  der 
Wiederholung: 

DO  WHILE  /  REPEAT 

Man  benutzt  diese  Formen,  um  Be¬ 
fehle  oder  Befehlsgruppen  oder 
auch  komplette  Programmteile 
mehrmals  hintereinander  ausfüh¬ 
ren  zu  lassen.  Eine  Programmschlei¬ 
fe  kann  nur  mit  diesen  Formen  reali¬ 
siert  werden  (Bild  5  und  6). 

Facit 

Beim  Struktogramm  entfällt  völlig 
die  Flußlinie,  sie  wird  ersetzt  durch 
die  gemeinsame  waagerechte  Be¬ 
grenzungslinie.  Struktogramme 
kann  man  immer  in  Programmab¬ 
laufpläne  übertragen,  umgekehrt  ist 
es  oft  nur  unter  erheblichem  Auf¬ 
wand  möglich.  Das  bedeutet,  daß 
man  durchaus  auch  mit  Flußdia¬ 
grammen  strukturiert  programmie¬ 
ren  kann;  der  Zwang  dazu  entfällt  je¬ 
doch.  Bei  der  Planung  seiner  Pro¬ 
gramme  mit  Struktogrammen  wird 
man  es  schwer  haben,  »Spaghetti- 
Kode«  zu  produzieren.  Und  das  ist  al¬ 
lemal  ein  Vorteil.  Und  machen  Sie 
bitte  nicht  den  Fehler  wie  so  viele 
(ich  schließe  mich  dabei  nicht  aus) 
und  erstellen  Sie  Ihr  Flußdiagramm 
oder  Struktogramm  erst  dann,  nach¬ 
dem  Sie  kodiert  haben  und  Sie 
durch  Ihr  eigenes  Programm  nicht 
mehr  durchsteigen.  (gk) 
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Quicktext 


C  64 


Ouicktext  ist  ein  vielfältig 
einsetzbares  Textverar¬ 
beitungsprogramm  für  den 
Commodore  64  in  Verbin¬ 
dung  mit  der  Floppy  1541 
und  einem  Matrixdrucker 
(zum  Beispiel  Epson 
MX-80/82,  FX  80  mit  Data 
Becker  Interface).  Das  Pro¬ 
gramm  benötigt  zirka  12  KBy¬ 
te  Speicherplatz;  es  bleiben 
also  etwas  mehr  als  25  KByte 
zur  Texteingabe  übrig.  Der 
einzige  Nachteil  ist  eine  rela¬ 
tiv  langsame  Textausgabe 
auf  dem  Drucker,  die  sich 
aber  durch  Compilieren  des 
Programms  beschleunigen 
läßt. 

—  Zeilenlänge  frei  definie¬ 
ren 

—  Vorgegebenes  Textformat 
übernehmen 
—  Neue  Texteingabe 
—  Zeilen  ändern,  einfügen, 
löschen  und  kopieren 
—  Buchstaben  oder  Wörter 
im  Text  suchen  und  gegen 
neue  Wörter  oder  Buchsta¬ 
ben  austauschen 
—  Beliebiges  Ausdrucken 
von  Texten  (Zeilen  oder 
Blöcke) 

—  Variabler  Zeilenabstand 
(1,  1,5,  2) 

—  Textformatierung  (rechter 
Randausgleich) 

—  Seitennumerierung 
—  Briefkopf  und  Adresse 
nach  DIN  676 

—  Unterstreichen,  Fettdruck 
und  Breitschrift  in  allen  mög¬ 
lichen  Kombinationen 
—  Wahlweiser  Ausdruck  auf 
Endlospapier  oder  Einzel¬ 
blatt 

—  Druck  der  Sonderzeichen 
ä,  ö,  ü,  Ä,  Ü,  Ö,  ß 
—  Druck  von  hoch-  und  tief¬ 
gestellten  Textteilen 
—  Umfangreiche  Disketten¬ 
befehle  (siehe  Bild  1). 

Nach  dem  Laden  und  Star¬ 
ten  meldet  sich  Quicktext  mit 
dem  Hauptmenü  (Bild  2).  Von 
dort  aus  werden  die  einzel¬ 
nen  Unterprogramme  sowie 
das  Diskettenmenü  ange¬ 
wählt.  Kehrt  das  Programm 
nicht  von  selbst  ins  Hauptme¬ 
nü  zurück,  so  ist  dies  jeder¬ 
zeit  durch  Betätigen  der 
»Pfeil-Links-Taste«  möglich 
(auch  während  der  Textein¬ 
gabe).  Erläuterungen  zu  den 
einzelnen  Unterprogram¬ 
men: 

1.  Text  eingeben 
Zunächst  fragt  das  Pro¬ 
gramm,  ob  man  neuen  Text 
eingeben  oder  an  einem  be¬ 
reits  im  Speicher  befindli¬ 


chen  Text  weiterschreiben 
will.  Danach  wird  die  Zeilen¬ 
länge  bestimmt.  Nach  Einga¬ 
be  der  Zeilenlänge  schaltet 
der  Computer  auf  den  Text¬ 
modus  um,  was  am  Farb¬ 
wechsel  des  Bildschirms 
und  dem  neuen  Cursor  zu  er¬ 
kennen  ist.  Jetzt  kann  mit  der 
Texteingabe  begonnen  wer¬ 
den.  Der  Wagenrücklauf 
wird  mit  der  »Return«-Taste 
betätigt  oder  von  selbst  aus¬ 
gelöst,  wenn  die  maximale 
Zeilenlänge  erreicht  ist. 

Die  Cursorsteuertasten 
funktionieren  im  Texteinga¬ 
bemodus  nicht.  Der  Textcur¬ 
sor  kann  mit  Hilfe  der  IN- 
ST/DEL-Taste  rückwärts  be¬ 
wegt  werden.  Größere  Feh¬ 
ler  können  aber  immer  noch 
mit  Hilfe  des  Editierpro¬ 
grammes  korrigiert  werden. 

Zur  Eingabe  von  Sonder¬ 
zeichen  und  Sonderfunktio¬ 
nen  wird  die  Commodore- 
Taste  in  Verbindung  mit  der 
jeweiligen  Buchstabentaste 
gedrückt  (Bild  3). 

Nach  Beendigung  der 
Texteingabe  erfolgt  die 
Rückkehr  in  das  Hauptmenü 
durch  Drücken  der  »Pfeil- 
Links-Taste«. 

2.  Text  ändern  onu 

Zunächst  fragt  das  Pro¬ 
gramm  nach  dem  Textbe¬ 
reich,  der  gezeigt  werden 
soll.  Dieser  wird  jeweils  zu¬ 
sammen  mit  zwei  Befehlszei¬ 
len  am  unteren  Bildschirm¬ 
rand  angezeigt.  Die  einzel¬ 
nen  Editierfunktionen  sind  in 
Bild  4  erläutert. 

3.  Text  formatieren 

Der  Text  wird  auf  Basis  der 
eingegebenen  Zeilenlänge 
formatiert  (rechter  Randaus¬ 
gleich). 

4.  Text  ausdrucken 

Das  Programm  fragt  den 
Benutzer  nun  nach  seinen 
Wünschen  hinsichtlich  Brief¬ 
kopf,  Zeilenabstand,  Seiten¬ 
numerierung,  Länge  des 
Ausdrucks,  Linker  Randab¬ 
stand,  Endlospapier  oder 
Einzelblatteinzug. 

In  einem  weiteren  Durch¬ 
gang  werden  nochmals  alle 
gewünschten  Funktionen  an¬ 
gezeigt.  Änderungen  der 
Parameter  sind  vor  der  Aus¬ 
gabe  möglich.  Dies  ist  wich¬ 
tig,  falls  zum  Beispiel  verges¬ 
sen  wurde,  den  Briefkopf 
einzugeben.  Nach  Beendi¬ 
gung  der  Druckausgabe 
fragt  das  Programm,  ob  noch 
ein  weiterer  Druck  ge¬ 
wünscht  wird.  Wenn  ja,  so 


geht  es  zurück  zu  den  Einzel¬ 
fragen.  Wenn  nein,  so  kehrt 
man  ins  Hauptmenü  zurück. 

5.  Diskettenverwaltung 

Vom  Diskettenmenü  (Bild 

1)  aus  werden  die  einzelnen 
Unterprogramme  ange¬ 
wählt,  die  in  Büd  5  erläutert 

6.  Briefkopf  eingeben 

Es  gibt  zwei  Möglichkei¬ 
ten,  einen  Briefkopf  emzuge- 
ben:  mit  oder  ohne  Adreß- 
feld  für  einen  Fensterbrief¬ 
umschlag  nach  DIN  676.  Das 
Programm  fragt  nach  der  ge¬ 
wünschten  Form  der  Einga¬ 
be  des  eigentlichen  Brief¬ 
kopfes.  Soll  die  betreffende 
Zeile  des  Briefkopfes  oder 
der  Adresse  im  Adressen¬ 
fenster  leer  bleiben,  so  ist 
einfach  die  »Return«-Taste 
einzugeben. 

7.  End 

Ausstieg  aus  dem  Pro¬ 
gramm.  Diese  Funktion  ist 
mit  Vorsicht  zu  genießen, 
denn  ein  eventuell  vorhan¬ 
dener  Text  bleibt  zwar  im 


Speicher  zunächst  erhalten; 
wird  Quicktext  jedoch  neu 
gestartet,  werden  alle  Varia¬ 
blen  (auch  der  Text  in  Z$)  un¬ 
wiederbringlich  gelöscht. 

Für  das  einwandfreie 
Funktionieren  des  Pro¬ 
gramms  sind  natürlich  noch 
einige  Dinge  zu  berücksich¬ 
tigen: 

1.  Die  maximale  Zeilenlänge 
beträgt  80  Zeichen.  Bei  der 
Eingabe  von  Sonderfunktio¬ 
nen  erscheinen  auf  dem 
Bildschirm  Grafikzeichen, 
die  zwar  nicht  abgedruckt, 
jedoch  im  Taxt  mit  abgespei¬ 
chert  werden.  Bei  der  Einga¬ 
be  von  Sonderfunktionen  er¬ 
höht  das  Programm  die  Zei¬ 
lenlänge  jeweils  entspre¬ 
chend,  aber  nur  bis  maximal 
80  Zeichen/Zeile. 

2.  Wenn  der  Zeilenabstand 
über  mehrere  Zeilen  hinweg 
verändert  werden  soll,  so  ist 
das  Sonderzeichen  an  den 
Beginn  jeder  Zeile  zu  stellen. 
Dies  ist  zum  Beispiel  bei  län¬ 
geren  Zitaten  erforderlich, 


C=  +  a  >  ä 
C=  +  o  >  ö 
C=  +  u  >  ü 
C=  +  5  >  ß 

C=  +  linke  eckige  Klammer  >  Ä 
C=  +  £  >  ö 

C=  +  rechte  eckige  Klammer  >  ü 


C=  +  2  >  Text 

C=  +  x  >  Text 

C=  +  c  >  Text 

C=  +  V  >  T ex  t 

C=  +  b  >  T  ex  t 

C=  +  n  >  T ex  t 
C=  +  m  >  T  ex  t: 

C=  +  d  >  T-"t 

C=  +  f  >  T-„t 


Bild  3.  Sonderzeichen  und  Sonderfunktionen 
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die  sich  über  mehrere  Zei¬ 
len  hinziehen.  Das  Unterpro¬ 
gramm  in  den  Zeilen  8500  bis 
8560  verändert  dann  die  Va¬ 
riable  t  (Zeilen  pro  Seite). 

3.  Das  Programm  akzep¬ 
tiert  nur  die  Eingabe  von  ma¬ 
ximal  500  Zeilen.  Sind  90  Pro¬ 
zent  des  Speichers  vollge¬ 
schrieben,  kehrt  das  Pro¬ 
gramm  ebenfalls  ms  Haupt¬ 
menü  zurück.  Der  Text  kann 
anschließend  noch  geän¬ 
dert  und  abgespeichert  wer¬ 
den. 

4.  Die  RUN/STOP-Taste  ist 
durch  einen  POKE-Befehl  in 
Zeile  10  ausgeschaltet,  um  zu 
vermeiden,  daß  das  Pro¬ 
gramm  durch  versehentli¬ 
ches  Betätigen  dieser  Taste 
aussteigt. 

5.  Die  Verwendung  von  An¬ 
führungszeichen  ist  nicht 
möglich.  Sie  werden  durch 
das  Hochkomma  (’)  gesetzt. 

Editiermöglichkeiten 

-A-  Das  Programm  fragt  nach 
der  zu  ändernden  Zeile.  Die¬ 
se  wird  auf  den  Bildschirm 


gebracht  und  kann  nun  be¬ 
liebig  geändert  werden.  Das 
Fragezeichen  und  die  An¬ 
führungsstriche  dürfen  nicht 
geändert  werden,  da  sonst 
Fehler  auftreten.  Mit  der 
»Return-Taste«  kehrt  man  ins 
Hauptmenü  zurück. 

-L-  Die  betreffende  Zeüe 
wird  gelöscht. 

-E-  Das  Programm  fragt,  vor 
welcher  Zeile  eingefügt  wer¬ 
den  soll  und  schaltet  dann  in 
den  Texteingabemodus  um. 
Es  können  nur  60  Zeilen  auf 
einmal  eingefügt  werden. 
Rückkehr  mit  der  »Pfeil- 
Lmks-Taste«. 

-T-  Hier  kann  ein  Buchstabe 
oder  ein  Wort  im  ganzen  Text 
ausgetauscht  werden.  Das 
Programm  fragt  bei  jeder 
einzelnen  Möglichkeit,  ob 
ausgetauscht  werden  kann. 
Ist  dies  nicht  möglich,  so 
wird  »Tausch  nicht  möglich« 
eingeblendet.  Wird  bei  der 
Bereichseingabe  ’0'  einge¬ 
geben,  so  wird  der  gesamte 
Text  nach  Änderungsmög¬ 
lichkeiten  durchsucht. 


TextprograMM 
Henue : 

ÜB  Text  eingeben 

Text  korrigieren 
KH  Text  forHatieren 
SB  Text  ausdrucken 
Üfi  Diskettenverwaltung 
Ufi  Briefkopf  eingeben 
OB  End 

Eingabe  > 


V  Bild  1.  Diskettenmenü  von  Quicktext  ▲  Bild  2.  Hauptmenü  von  Quicktext 


Textprogrann 


iskettenverwaltun 


LB  Tj?xt  speichern 
Text  einiesen 
£S  Text  loeschen 
Sjfi  Neuer  Dateinane 
£S  Directory  lesen 
L*fi  Texte  verketten 
OB  Hauptnenue 

Eingabe  > 


-B-  Beim  Blocktausch  können 
ganze  Textblöcke  mit  belie¬ 
biger  Länge  versetzt  wer¬ 
den.  Auch  eine  Kopie  ist 
möglich,  wenn  der  alte  Block 
einfach  nicht  gelöscht  wird. 

'  + 1  Mit  dieser  Taste  wird  der 
Text  nach  vorne  geblättert 
—  Mit  dieser  Taste  wird  der 
Text  zurückgeblättert 
Mit  der  »Pfeil-Links-Taste« 
schließlich  kehrt  man  ins 
Hauptmenü  zurück. 
Diskettenfunktionen 
1.  Text  speichern 
Das  Programm  initialisiert 
die  Diskette,  liest  den  Fehler¬ 
kanal  aus  und  fragt  dann  den 


Benutzer  nach  dem  Dateina¬ 
men.  Anschließend  wird  der 
Fehlerkanal  wieder  ausgele¬ 
sen.  Wenn  alles  in  Ordnung 
ist,  wird  der  Text  gespei¬ 
chert  und  das  Programm 
kehrt  ins  Hauptmenü  zurück. 
Ist  ein  Text  mit  gleichem  Da¬ 
teinamen  vorhanden,  wird 
gemeldet:  »File  exists«,  und 
das  Programm  fragt,  ob  die 
alte  Datei  überschrieben 
werden  soll.  Wenn  ja,  wird 
die  alte  Datei  überschrieben 
und  durch  die  neue  ersetzt. 
Wenn  nein,  muß  man  sich  ei¬ 
nen  neuen  Dateinamen 
überlegen. 


Zeilennummer 

10-  20 

Bildschirmfarben,  Dimensionierung,  Initiali¬ 
sierung 

30-  100 

Sonderzeichendefinition;  Sprung  zum 
Hauptmenü 

200-  405 

Steuerung  und  Abfragen  des  Eingabecur- 

sors 

2000-  2620 

Texteingabe 

3000-  3170 

Edit-Bildschirm  und  Anwahl  der  Edit- 
Funktionen 

3200-  3220 

Änderung  einer  Textzeile 

3300-  3310 

Löschen  einer  Textzeile 

3400-  3510 

Einfügen  einer  Textzeile 

3600-  3690 

Wort-  oder  Buchstabenaustausch 

3800-  3875 

Blockaustausch 

4000-  4620 

Textformatierung  (rechter  Randausgleich) 

500*  1220 

Eingabe  der  Druckparameter 

5230-  5395 

Nochmaliges  Anzeigen  der  Druckparameter 

5400-  5560 

Druck  des  Briefkopfes 

5600-  5880 

Druckausgabe 

6000-  6070 

Diskettenmenü 

6200-  6250 

Speichern  eines  Textes 

6400-  6460 

Einlesen  eines  Textes 

6600-  6620 

Löschen  eines  Textes 

6800-  6820 

Neuer  Dateiname 

7000-  7100 

Directory  lesen 

7200-  7600 

Texte  verketten 

8000-  8100 

Bildschirmfarben 

8500-  8560 

Änderung  der  Variable  t  (Zeilen  pro  Seite) 

9000-  9092 

Sonderzeichen  und  Sonderfunktionen  für 
Druckausgabe 

9100-  9110 

Auslesen  des  Fehlerkanals  der  Diskette 

9200-  9250 

Datei  auf  Diskette  überschreiben 

10000-10080 

Hauptmenü 

11000-11110 

Eingabe  des  Briefkopfes 

Bild  5.  Programmbeschreibung  anhand  der  Zeilennummern 

U 

Zeilenlänge 

Z 

Gesamtzahl  der  Zeilen 

Z$(x) 

Zeilennummer 

t$ 

normale  Get-Abfrage  nach  Zeichen 

fr 

freier  Speicherraum 

1 

Anzahl  der  geschriebenen  Zeichen 

t 

Zahl  der  Zeüen  pro  Seite 

a 

erste  Zeile,  die  ausgedruckt  werden  soll 

b 

letzte  Zeile,  die  ausgedruckt  werden  soll 

P 

Druckstartposition 

za 

Zeilenabstand 

ma$ 

Variable  für  Sonderzeichen 

ul 

Seitenzähler 

ma 

Zeüenzähler 

ip$ 

zu  druckendes  Zeichen 

cb$ 

Dateiname 

Bild  6.  Zusammenstellung  der  wichtigsten  Variablen 
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2.  Text  einiesen 

Das  Programm  fragt  nach  dem  Datei¬ 
namen  und  liest  den  Text  ein. 

3.  Text  löschen 

Der  gewünschte  Tsxt  wird  gelöscht. 

4.  Neuer  Dateiname 

Mit  Hilfe  dieses  Befehls  kann  ein  Text 
einen  neuen  Filenamen  erhalten.  Das 
Programm  fragt  nach  dem  alten  und 
dem  neuen  Dateinamen  und  führt  die 
Operationen  aus. 

5.  Directory  lesen 

Das  Directory  (Inhaltsverzeichnis) 
der  Diskette  wird  gelesen,  ohne  daß 
das  Programm  gelöscht  wird;  wichtig 
zum  Auffinden  von  Dateinamen. 

6.  Texte  verketten 

Mit  Hilfe  dieser  Subroutine  können 
bis  zu  vier  Programme  verknüpft  wer¬ 
den. 

7.  Hauptmenü 

Mit  diesem  Befehl  kehrt  man  ins 
Hauptmenü  zurück,  wenn  dies  nicht 
schon  vom  Programm  erledigt  wurde. 

(Joachim  Schaller) 


Umlaute  bei  Briefkopf: 

SHIFT  +-  linke  eckige  Klammer  ergibt  Ä 
SHIFT  +  rechte  eckige  Klammer  ergibt  Ü 
£  ergibt  ö 


Bild  4.  Darstellung  der  Umlaute  auf  dem  Briefkopf 


10  PR INT "LT' : POKE53280 ,0: P0KE53281 , 0: POKE 
53272 , 23 : POKE783 , PEEK l 788 ) +3 : POKE650 , 1 28 
23  D1MZ* (530) ,EF (61 > 

30  AE*=CHR*  <  4  >  +CHR*  (10)  +CHFJ*  (170)  +CHR*  ( 0 
+CHR*  (42)  +CHR*  (ß>  •  CHR*  <  170) +CHR*  (30)  +CH 
RS<2> 

40  OE*=CHR* <0) >CHR{ (28) +CHR* ( 162) +CHR* (0 
)  +CHR*  ( 34 !  +CHR*  ( 0 )  +CHR*  (162)  +CHRF  ( 28)  +CH 
R*(0> 

50  UEJ  -CHR* (0>+CHR* (60) ►CHRF ( 130) +CHR* (0 
) +CHR* (2) n CHR* (0) +CHR* (130) +CHR* (60) +CHR 
*•(0) 

60  GA*=CHR*  1 6)  +CHR*  (140)  +CHRF  ( 20  >  +CHR*  ( 3 

2  >  +CHR*  ( 60 )  +CHR*  ( 32 )  +CHR*  <  20  >  +CHR*  ( 1 40 )  + 
CHR* ( 6 ) 

70  GI*=CMR*<28> >CHR*(162)+CHR*(34)*CHR*( 
0 ) +CHR* ( 34 )  «IHR* ( 0 ) +CHR* ( 34 ) +CHR*  < 1 62) +C 
HR* (28) 

80  GU*=CHR*<60) <CHR*( 1 30) +CHR* (2) +CHR* (0 
)  »CHR*  (2)  *CHR*  (0)  +GHR*  (2)  -i-CHR*  ( 130) +CHR* 
(60) 

90  SS*=CHR* (126) +CHR* (12B) +CHR* (0 ) +CHR*  < 
146)  t-CIIR*(0)+CHR*(146)-*CHR*<146)  l-CHR*(10 
8)  i-CHR#  (0) 

1 00  FR-FRE <  0 ! : GOTO 1 0000 

200  PR1NT"_H"J 

205  GETT*s IFT* — " "THEN205 

210  r-ARnrr*)  :  IFT-30ANDW  - 1 ANDZ< —  1 AMDLEN ( 

TT»)  »0THENT*- " " :  PR  I  NT " f  5  s  2=U8OTO200 

215  i:  FW  •  2ANDT«20ANDl  .EN  ( TT*  >  -0THENTS  -  "  "  i  Q 

OTO205 

220  1FT -1640RT- I 67QRT=1 70ORT - 1730RT=1880 
RT  •  - 1 890R1' ~  1 90QRT=  1 720RT  =  1 V 1  THE  NU=U+ 1 
232  I FT- 1 71 ORT- 1 790RT - 1 B70RT= 1 77THF NIMJ+ 
1 

225  in -13THENPRINT"  :P1=B:P2=0:P3=0:P 

4  —0 :  l.l-  U2 :  80 TU335 

230  I  FT  1 3 ANDT <  20ORT  >  20ANDT <  320RT  > 1 2BAND 
I < 1330RT , 1 44ANDT < 1 60 THENT*=" " s  GOTO20S 
235  IFT=?5THENP1- 0:  P2=0:  PT.=0s  P4=0: U=U2: R 
ETURN 

240  IFT'-'34THENT*="  "* 

250  IFT=190ORT=19 1 ORT= 1 70ORT= 167 THENP 1=L 
EN (TT*) : P4=l 

260  1F  T= 1 64ANDP4=1THENP2=LEN  (TH)  :  P3=P2— 
P 1 : U=U-P3 

270  IFT<  >200 NDL EN  <  T*  >  = I THENPR I NTT* : 

280  I FT  >20THEN355 

290  (Fl. EN (TT$) - 1  THEN315 

300  IFLEN ( TT») =0ANDW=1 THEN7=Z-1:TT*  Z*(Z 

) : BOT 0325 

305  i FW - 1 THEN3 1 0 


309  1FLEN (TT  * ) =0ANDW=0THENE=E- 1 : TT*=E* (E 
> : G0T0325 

310  TT  *=LEFT*  (TT* ,  LEN  (TT* )  - 1  )  :PRINTCHR*( 
20) ; : GOTO200 

315  L=L-I  EN(TTE) : TT*=" ": PRINT”  ||";CHR*(2 
0)  ;  :  IFW-1THENZ*(Z)  ="":  Z=Z-1  :  IFZ=0THEN7.=1 
318  IFW=1THENTT*=Z*(Z> 

323  IFW=0THENE*'E  1 : IFE=0THENE=1 
323  I FW=0THENTTF=E* (' F ) 

:.24  IFW=2THENTT*="  " :  GOTO205 
325  IFLENtTT»)  58THENPRINT "  dl": 

330  PRINT"  |D" s TT»;  :GOTO200 
:35  IFLEN  (TT»>  40THENX=218«-PEEK  (214) :  POK 
EX, (PEEK '*'0R!2e> 

340  PR1IITCHR*  ( 13)  ;  :  O  0:L=l  <U  N(U*):  1FL. 

. 9*FRTHENGQSUB 400: RETURN 
345  RETURN 

355  IFQ“0ANDLEN(TT*> >U— 3ANDT»  "  " THEN370 
560  TT*=TT*  ►  TS  IFLEN  (T  I  #>  -00  I  HEN370 
365  IFLEN (TT 4 )  UI2THEN700 
570  P 1  =0 :  P2-0 :  P3=0 : P4 -0 : U  U2 1  GO  1  0340 
400  F'R I N T " O— RE  I ER  »El  C HERPLATZ  IN  |  YTES 
: ": IMT(FP) “ 

403  PKirn  "lü-it  -1N6ABERDUTINE  WIRD  ABBEB 
ROCHEN. ": FQRX- 1 FO1000: NEXT : r RETURN 
2000  W  1 :  PRINT *'l7?l:ri  ■  OF 1 1 CRSCHRE I BEN" SP 
C  (62)  "UJ2-5  /EUEM  |  EXT  E  1  NGEHENUIH.Q-  I NGABE 

\ 

2020  GET  X  * : X :  VAl  <X*):IFX  1 ORX >2THEN2020 
2030  ONXGOT02 100, 2630 

2100  PRINT  "US”;  i  GOSUBB100:  Z--7+1 :  6OSUB200 

7105  IFTt  " THENZ* ( Z )  -  TTt:T'*= T*="M: 

W=0 : 6O5UB800W : RE ’URN 

2110  Z*(7) =TT»:Z=Z+1;TTT  . . 

120  :  F  1  i  ■- . rHENZ»  Z)  r  (  !  :  I  I  1  "  :  I  r  ; 

W -0: GOSUB8000 : RETURN 
7130  GÜTO2110 

2200  PR INT "LE" ; : F0RX=I10Z:  Z* ( X > =" " : NEXT: 
2  =  1:  (3USUB8 1 00 :  GOSUB200 

2210  IFT*  "_"THENZ*(Z5=TT» : T1*=" " : T*=" " : 

W=0 :  GOSUBE1000 :  RE  I  URN 

222B  7. *  (2!  --TT*:  Z=Z+1 :  TT*  "  :  OOSUB200 

2230  1 FT*  =  " _  "  TI  1ENZT (7_)  -TT  t:  TT*-"  T*=  "  "  : 

W=0: GOSUB8000: RF  TURN 

2240  GOTQ2220 

7630  F-PJNI  ’  L.1  FHEN  »IE  NUN  DIE  MAXIMALE  ♦ 
EILEN-ß" : PRINT "LAENGE  (10  70)  EIN 
2610  INPU  '  IJ:  :  i  "  i0ORt  70THENPRINT"d3" :  GC 
TO 26 1 0 

7620  U2=U •ri'Ütfta' JF  ZWISCHEN 
"  U— 3"  UNI) "  m?rFOF:^TTrr00effr<fe'Zr :  6OTO2200 
3000  PR INT" LI  EBEN  »IE  NUN  OIE  »EILEN  EIN 
,  DIC  »IE  SEHEN  MOECHTEN  ( s RRTUM  =  0) 
3010  INPUT'TÜ-IE  KLEINERE  »AUL:  ";A:IFA>5 
00THENPR 1  NT "OD" : GOTO3310 
7015  IFA=0THENRETURM 

3020  INPUT"l!)-IE  HOEHERE  »AHL:  “;B:IFB<AO 
RB. 530 ! HF NPRINT "CD" s 6OTO3020 
3103  PRINT "L"  =  C=B-Ar F0RX=AT0BSTEP2: PRINT 
"131";  X;  "||.  :!5B"  ;  TAB  (7) ;  Z*  <X> 

3107  PR  INI  "'za";  X  +  l  ;  "||.  :S1";TAB(7)  ;  Z*(X  +  1 
) : NEXT 

3110  POKE214 , 20:  PRINT  :  PRINT  :  PF<INT"k.U*aEN 
DERM  IÜOESCHEN  J-ÜINFUEGLN  Hfl  «AUSC 
H 

31 15  P0KE214,21:PRINT;PRINT:PRlNT“iai5L0C 

K TAUSCH  ia+5  VOR  Uj-5  ZURUECI  13  "\ENUE 

3120  GEH  *:  IFK.r="  "THEN3  120 

3125  I FK*= " A" THEN3200 

3130  1FK*=“L."  THEN3300 

3135  IFt  *="E"1 HEN3400 

3140  I FK*- " T " THEN3600 

3142  I FK»= " B " THEN3800 

3145  IFK*" " THENA“A— 1— C: D=A+C: IFA< 1THEN 
A=1 :B=A+C 

3155  1FK* -"*"THENA=B+1:B=B> 1+C: IFB+1+C>5 

00THENB -500 : A=B-C 

3165  IFK*  "  THENA-0:  B*»0:  RETURN 

3170  GOTO3100 

3200  INPUT " l!KU*FV1 2 * 4 — -r/IE  »EILE  ";KK:W=2: 

I FKK<  AQRKK >BTHEN3 1 00 

3220  PRINT "L"SPC (2)CHR* (34) Z®  <KK) :PRlNr" 
ÖD"; :  INPUTZ* (I  I  ):GOTO3100 

3300  INPUT"t*n:l_l — »-  l-y  (% RRTUM  =0).  "sKF 
:  IFI  K=0ORKK> ZTHEN3100 

3310  FORX=l  1  fOZ: ?*(> >=Z*<X+1 ) :NEXT: ZI <Z) 

=  M  •• :  Z=Z-1 :  KK---0 :  G0T03 1 00 

3400  PR1NI  '  Uaa-Ny'_,-|-/«  VOP  »EILE  <,RRT 
UM  =  0)  "|i  INPUTKK:  IFK.I  >ZORKK=0THEN3 100 
3407  IFK!  -0THEN3100 

3410  W=0:E  0: PRINT"- S  KOENNEN  MAXIMAL  60 
♦EILEN  EINBEFUEST  WERDEN." 

3415  FORX= 1 rO1000:NEXT:PRINT"L"sE=l: IFZ+ 
17-500THEN3100 

3420  GOSIJB200:  IFT*="  "  THi  NET  <E>— TT*:  TT  l  — 
'•"iT*="  "  :  GOTO3500 

3425  E*  (E)  -  1  TI :  TT*="  ":T*=  :  E=E+i  :  IFE--61 

THEN3500 

3430  IFZ-*E=500THEM7500 
3435  GO5UB200 

3440  IFT*-“_" THENE* iE) =TT*: TT*“" " : T*=" " : 

GOTO3500 

3445  G0T03425 


3500  Z=Z+E:F0RX  =  ZTCJI  M-E-I5TEP-1 :  :  Z*(X)=Z 
* (X— E) : NEXT 

3505  F=0:FORX=KKTUKK+E  1 : F=F+1 : Z* ( X > =E* ( 
F)sE*(F>=" " : NEXT : KK=0: E= 1 
551 0  G0T031 00 

3600  PRINT  "Lina  |«<»-|  ■":  INPUT  "U14LTES  00 
RI " : T* : IFT*=“ "THEN3600 

3605  INPUT "ia/EUER  OOR T" ; AT*: IFAT*=" "THEN 
5605 

3610  PRINT"Bfl“4|  I  — —  I  (ALLE  ♦EILEN  =  0 
)  " 

3615  INPUT "tÜ-IE  KLEINERE  ♦EILE" ; Kl<:  IFKK> 

7  THE NPR I  NT  "CUT  :  GOTO  56 1 5 

3620  in<K=0THENi  K=1 : KM-Z : GOTO3630 

3625  INPUT-a-lF  HOEHERE  »EILE: " ; t Ms IFKK< 

1 .)  OP*  M  z  THENPR  INT  "CED" :  60T03625 

3630  FORF =K KT OKM : L=LEN ( T* )  : M=LEN ( Z* <F> ) : 

FORD- 1  TOM  -L-»  1 

3635  I FM ID* <4 (F) ,0,1 ) < >T*THEN3660 
3640  A*=LF.FT*  (Z*  (F  >  ,3-1)  :B*=RIGHT*  (Z*  (F> 
,LI;N (Z* <F)  )  +1- (0+L)  ) 

3645  C*=MID* (Z*(F) ,0U  ,!>:GOTO3670 
3655  Z*(^)=A*^AT**D4 

3660  NEXTO: NEXTF : A*-" " : B*=" " : T*=" " : AT*=" 

"  :  0-0 : 1  0 :  FORF-  HO!  000 :  NE  X  T:  GOT 03 1 00 

3670  PRIMI  "Li"F  .  A !  U"T1  "g'BX:  PRINT  "ÜMHJSTA 

USCH  ■»  (J/N)U 

3675  GETX*: IFX*=" "THEN3675 

3680  IFX*=“J "THEN3655 

3685  IFX*="N"THEN3A60 

3690  G0T03675 

3800  1 NPUT "  KID  I  LT— ’  I  ♦ r»- I ■  <\ RR TUM-0 )  VO 

N  ♦£ ILE": AA: IFAA  01HEN3100 

3805  IPAA  10RAA  /  1 1 IENPR 1  NT  'dD"  :  BOTÜ3S00 

3810  PRINTSPC (23) : INPUT"BIS  ♦EILE":BB:IF 

BIX  AAORBB>ZTHENPR I NT "CD" : G0T038 1 0 

3820  PR INT"H?— %/—  r~\ — /5"SPC (14) "VOR  »EILE 

" ; : 1 NPUTCC : I FCC  1 ORCC  Z THENPR INT "CD" : BOT 

03820 

3830  DD-BBU-AA:  I FOD760THENPR INT"  | LOCK  Z 
U  GROSS ":G0T03 100 

3835  E=0: E*=" " : : FORD“ AATOBB s £=E+ 1 :  E* (E)  = 
Z* (D) : NEXT 

3840  Z=Z+DD+ 1 : FORD=ZTOCC+DD- 1STEP- 1 : Z* (D 
) =Z* (D-DD) : NEXT : D=0: F=0 

3845  FORD=CCTOCC+DD-l:E=E+l:Z*(D)=E*(E>  : 
NEXT : X=0 

3850  PRINT' HJJ — »-!“/■  VON  |LOCK  1  (J/N)? 

3855  GETX*: IFX*=" "THEN3B55 
3860  IFX*=" J "THEN3875 
3865  IFX*="M"THEN31 00 
3870  G0T0385S 

3B/5  FORX=AATOZ: Z* (X) =Z* (X+DD) : NEXT : Z=Z- 
DO: GOTO3100 

4000  PRINT"lL-ER  IEXT  WIRD  AUF" ; U+2;  "»El 
CHEN/ »EILE  FÜR-  MATIERT  .  ÜJ"  :  IFZ=0THENRETU 
RN 

4100  PRINT"ia|ITTE  WARTEN  »IE.  "  :  V=U-*-2:  M5= 
0: FORX=  t  TOZ : L=LEN ( Z* (X ) )  : TT=0 

4105  1FL  V— 50RL  =0ANDX  ■(  ZTHENNEXTX  :  GOTO450 
0 

4106  I FL  >VTHEN4600 

4110  V=V+M5: FORJ=LTO 1STEP-1 : IFL=VTHENJ=1 
: GQT04 1 50 

4130  IFMID* (Z*<X)  ,J,  1)0"  "THEN4150 
4140  TT=t: Z* ( X ) =LEFT* ( Z* ( X) , J)+"  "+RIGHT 
*(Z*(X) , L-J) : L=L+ 1 

4150  NEXTJ : V=U+2: M5=0: NEXTX: RETURN 
4500  IFX  >=ZTHENRETURN 

4600  F0RT5=LT01STEP-l:0=ASC(MID*(Z*(X> ,T 
5,1)) 

4610  I F0= 1 730R0- 1 890R0- 1 880RQ= 1 90ORO= 1 9 1 
ORü- 1 70ORO= 1 67ÜR0= 1 64DR0= 1 7 1 THENM5=M5+ 1 
4615  I F0= 1 790R0= 1 770R0= 1 720R0= 1 87THENM5= 
M5<-1 

4630  0=0: NEXTT5: G0T041 1 0 

5000  PRIMT"3uU4USDRUCK:  "  :  PR  1  NT  " HUI  H145USD 

RUCK"3PC(72> "UL5  NENUE 

5020  GETX*: IFX*=" "THEN5020 

5030  1 F  X*= " A " THEN5060 

5040  I F X *= " _ " THENRETURN 

5050  GOTO5020 

5060  PR INT "LI RIEFKOPF  DRUCKEN?  (J/N) 
5070  GE TW*: IFW*=" "THEN5070 
5075  IFW*="N"ORW*=  ".1"THEN50G0 
5077  3OTO5070 

5080  PR1NT"UJ|  EBEN  »IE  BITTE  DEN  »EI  LEN  AB 
STAND  E IN: U) 

5090  INPUT"13  1  ■  ,  UJ  1-5  ■  ,  U  2  ■  ";ZA 
5100  t FZA= 10RZA= 1 . 50RZA=2THEN5 1 05 
5102  PRINT  CD": GOTO3090 
5105  I F  Z A= 1 THENZ A=  36 
3107  IF7A=1.5THENZA=54 

5109  IFZA=2THENZA=72 

5110  ZB-ZA 

5120  PRINT"ia_INKF.R  -ANDABSTAND  (MAX.  "78- 
U") : INPUTP: IFP*U • 2>80THENPRINT "CED" : GO 
TQ5120 

5140  PRINT  ”ÜJ»E  1  TENNUMERIERUN6  (0/N)? 

5150  GE TAB* : IFAB*=" "THEN5150 
5160  I FAB*= " J " ORAB* = » N " THEN51 80 
5170  PR T NT "L" : G0T05 1 40 
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C  64 


5180  PRINT "13L1I5LATTEIN2IIG  Uf-WDLQSPAP I 
RR 

5 1 82  SETF2S : I FF2S= " "TIHEN5 1 82 
5 1 84  IFF2S="B" 0RF2S- " E " THEN5 1 90 
5186  PRINT“L":GQTO5180 

5190  PRINT“  1Ü0EL CHE  ♦EILEN  SOLLEN  AUSSFDR 
IJCKT  WERDEM70-4LLE 

5200  INPIJT"13-IE  KLEINERE  4AHL:  "  ;  A:  IFA=0T 
HENA=1 : B-Z : J=1 : GOTG5230 

5210  IFA<0ORA  Z THENPR I  NT '  CEC  ' : GOTO5200 
5220  1NPUT"1L>-IE  HOEHERE  SEILE:  " ;  B:  IFB<AO 
RB  /ZTHENPRlNT'TTi" :  GOTO5220 
5230  IFW*="J,,THENPRINT"LIRIEFKOPF  WIRD  A 
BGEDRUCKT 

5240  IFWS="N" THENPR I NT "U RIEFKOPF  WIRD  N 
ICHT  ABGEDRUCKT 

5260  PR I NT “ fc)4E I LENABSTAND  " ; : IFZA=36THEN 
PRINT"ia  1  5 

5270  IFZA-54THENPR I  NT  "U  1,5  5 
5280  IFZA=72THENPRINT"13  2  ■ 

5290  PR I NT " l!L. I NKER  -ANDABSTAND  13"P"S 
5300  IFJ  - 1 THENPR I NT " l!)*USDRUCK  ALLER  SEIL 
EN“ : GOTO5320 

5310  PR  INT"  [34USDRUCK  VON  ♦EILE"A"  BIS  SH 
ILE"B 

5320  I F ABT  -  " J “THENPR INT"  [3*E I TENNUMER I ERU 
NG 

5330  IFABS=  "  M  "  THENPR  I  NT  "  llK  E I  NE  SEITENNUM 
ERIERUNG 

5340  I FF2S= " B " THENPR I NT "  Wl NZELBL ATTE I NZ 
UG 

5350  I FF2* = "E" THENPR I NT "ÜJ— NDLOSP AP I ER 
S360  PRINT "ÜIÜ^LLE  -INBABEN  RICHTIG?  <J/N 
> 

5370  GETF1S: IFF1S=" “THEN5370 

5380  I  FF  THENPR  INT  “L4USDRUCK  ERFOLG 

T.  IITTE  WARTEN  »IE. "  :  GOTO5400 

5390  IFF1S="N"THENP=0: A=0; B=0: F*=" " : GOTO 

5000 

5395  GOTO5370 

5400  OPEN 1 ,4, 1:GPEN2,4 ,7: PRINT#! , CHRS (27 
> "D"CHRS (P)CHRS (0) : : IFWS="N" THEN5600 
5418  PRINT# 1 ,CHRS (27) "E“SPC(61 W1SSFC (64- 
(LEM (WIT) ) ) W4S 

5420  PRINT# 1 ,SPC<6)W2»SPC(64-(LEN!W2*> ) I 
WS* 

54  30  PR  I  NT#  1  ,  SPC « 6 )  W3SSPC  i  64-  (  LEN  i  W3S I  >  ) 

WAS : PR INT !H  , SPC  < 6 > WS V 

5440  IFAS (]><>" "THEN5470 

5450  PR INT# 1 , CHRS (13) CHRS < 27 ! “F“ : PRINT# 1 

,SF'C(73>W7S 

5460  FORX=lT03:  PRINT#  1  ,CHRS(13>  :  NEXT :  GOT 
05600 

5470  F0RX=1T02:PRINT#1,CHRS(13) :NEXT:PRI 
NT# 1, CHR* (27) “F“ 

5480  PRINT#l,CHR*(15>SPCtl5)WlS"  *  "W4S" 
*  "W5SCHR* ( 18) : PRINT#! , SPC C8) ; 

5490  FQRT=1TO40: PRINT#?, " — : : NEXT 
5500  PRINT# 1 , CHRS (13) 

5510  F0RP=1TQ5: I F AS (Pi =“"THEN5540 
5520  IFP=5TIIENPRINT#t ,CHRS < 13) SPC (3) AS (P 
> : GOTO5560 

5530  PR I NT  Bl , SPC ( 3  >  AS ( P i 
5540  NEXTP 

5560  F0RY=1  T03:  PRINT #  1  ,  CHRS  (13)  :  NEXT:  PR! 
NT#1 ,SPC(74>W7S:PRINT#1 ,CHRS<13) 

5600  MA=0:U1=1 : IFZA-S6THENRS=4 

5603  IFZA=54THENR8=3 

5606  I F Z A=7 2T  MENR8-2 

3610  IFF2*= " E" ANDAB$= " N" THENR8-R0+ 1 

5620  I  FWS~ " N " THEN5650 

5630  IFWS=" J " ANDAS (  l > = “ "THEN5640 

5635  IFZA=36THENT=41 

5636  IFZA~-54THENT=27 

5637  IFZAr=72THENT=20 

5638  GOSI1B5800:  A-X?  1 :  GOTQ5700 

5640  IFZA=36THENT=5! 

5641  IFZAcs54THENT=34 

5642  IFZA=72THENT=26 

5643  GUSUB58M0 : A=X+ I : 6OTG5700 

5650  IFZA:*36THENT=64 

5651  IFZA=54THENT-43 

5652  IF‘ZA=72THENT=32 

5653  6QSUB5800: A=X+ 1 : GOTQ5700 
5700  MA=0:U1=U1+1 

5710  IFF2*= " B " THENPR I NT " LSG I TE" U 1 "  EINGE 
LEGT? (J/N)  :  INPUTF3S:  IFF3SO" J"THEN3710 

5720  I FF2S" "E" THENF0RR9= 1 TORB: PR I NT# 1 , CH 
RS ( 13) : NEXTR9 

5730  I FABS= " J "THENPR I NT# 1 ,SPC(35> "-"Ul"- 
"CHRS (13) 

5740  1FZB=36THENT=62 

5741  IFZB=54THENT=41 

5742  IFZB-72THENT=30 

5750  GOSUB5800: A=X+1 : GaTO5700 

5R00  FORX=ATOB:  PRINT#  1  ,  CHRS  •  •  FnP7?=l  T 

ÖLEN ( ZS  <  X ) ) : IPS=MIDS (ZS (X) ,ZZ , 1) 

3805  IFIPS-"  " OR I PS= " " THEN5830 
5808  IP=ASC  (MID* (ZS (X )  ,ZZ,  I) ) 

5810  !  F  ’  P-  1  760R IF— 1  GGÜR I P --  1 84 QR I F'  >9 1  OR I P 
= 1 680R I P=93QRIP= 1 74THEN9000 
5820  I F I  P= 1 730R I  P=  1 890R I  P«  J  B80R I  P=  1 90OR I 
P=  t V I OR I F- 1 70OR I p- 1 670R IP=1 64THEM9035 


5825  I F I P= 1 720R I F- 1 870R I P= i  7 1 OR I P= 1 790R I 
P= 1 77THEN9035 

5830  PR I NT # 1 , CHRS (27) “3"CHRS<ZA) ; : PRINT# 
2, IPS; : NEXTZ Z: FF INT#2: MA=MA+ 1 : PRINT# 1 ,CH 
RS(27)“3“CHRS<ZA); 

5840  IFMA=INT  <T) THENRETURN 

5850  NEXTX : PRINT# 1: CI  OSE  1 :  CL0SF2:  PRINT  "L. 

/OCH  EIN  -RÜCK  (J/N)'’" 

5860  GETYS:  IFYS=""TFIEN5860 

5870  I F YS= " J " TRENA-0 : X=B: T=0: GGTO5060 

5880  I FY*="N " THENMA=0: GOTO l 0000 

6000  PRINT  "3LJ  EXTPr.QGRAMM  id#r>— 'I-' fl  'SPC 

(  100)  ISI  ETTENVERWALTÜNG—JI'I 

60)0  PRINTSPC  (11)  "Uäl  5  I  EXT  SPEICHERN"SP 

C(63)”ia2-5  I  EXT  EINLESEN  "SPC  (64) 

6020  PR  INT  "(33 -■  I  EXT  LC'ESCHEN"SPC  (64)  "134 
■  /EUER  -ATE INANE "SPC (62) 

6030  PRINT  "135 -•  — I RECTOR Y  LESEN  "SPC  (62)  " 
136-5  IEXTE  VERKETTEW’SPC  (62) 

6035  PF: INT "  137-5  IAUPTMENUr.L‘L'L‘»MriNGABE 


6040  GETXS: X=VAL(XS) : IFJK 1ORX>7THEN6040 
6050  IFX--7THEN 10000 

6060  ONXGOSUB620S , 6402 , 6600 , 6300 , 7000 , 72 
00 

6070  GOTO 1000O 

6200  PR  I  NT  “  L*TS  -  I  --/I3"  :  OPEN  1 3 , 8 ,  1 5 :  PR  I N 
T#15,"I0M:GO3UB9100: I NPUT "13“ ATE I NAME :  ■" 
;  CBS 

6205  1F Z=0TI  IENCL0SE15:  KETIIRN 
6210  DBS-"«: "+CBS+" , S ,W" :  GOTC9200 
6220  0PEH2,B,2,DB!S:PRINT"O-ATEI  13"2E:*“5 
W I  RB  BEßRE  I CMGRT  .  " 

6230  PRINT #2 , Z: PR INT  #2 .Ur  FORX- 2  TOZ : IFZl ( 
X)=" "THENZS (X>="_" 

6240  PRINT#2,CHRS  (345  ;  Zs  (X  '■  :  IFZSlXi  =*' .  "T 
HENZS(X)-" " 

6250  NEXT:  CL0SE2 :  CLÜSE 1  5 ; RET L'PN 
6400  PRTNT"C,— >/L~ #“/tB"  :  OF'ENIS  ,P-,  15:  PRINT 
tt  15 ,  "  10" :  G03UB91 00:  I NPUT  "  13“ * . T E I NAHE ;  5": 
CBS 


6405  DBS—  ”0:  ”-*CS>:+"  ,S, 

6419  GOSI JB9 i 00 : 0PEN2 ,8,2, OB'S: SOSUB?  1 03 : P 
RINT"lÜ-ATEI  13"CBf ”5  WIRD  E1MGELESFN. 

6420  IFW*< > " OK ” THENCLQSE2 : CLOSE 15: GOTO l @ 
000 

6430  I  NPUT #2 ,  Z  :  I NPUTS2 .  U :  U2  'J :  TOR  X»  .  T05C 

0 


6440  INF’UT#2, 
6445  IFZS(X)= 
6447  IFZS£X)= 
6450  NEXTX 


6460  CLQSE2 : CLOSE I 5 : RETURN 


6600  PR  INT"  CU — OPEN)  5,9, 15:PPIN 
T#15, "10" : GG3UB9100 

6650  PRINT"13— ATElNAME  'iS”  :  INPUTCBS:  DBS-  "E 
0: "+CBS 

6620  PRINT  "ISÜ-ATEI  13"CBS”5  WIRD  GELOESCH 

T . " : PR I NT# 1 5 , DBS : CLOSE 1 5 : RETURN 

6800  PRINT  ’U/"-/-—  -*l  -■v/*\-ÜIÜ 

6810  OPEN 15, 8 , 15 : PRINT #15 , " 10" : GGSUB9 1 00 

:  INPUT"13#LTER  — ATE  I NAME:  5"  !  CBS 

6820  I  NPUT  "ÜIÜ3/EUER  —ATE  1 NAMF  :  5"  :  f  r  t :  l'F 

S="R0: " ICFS+"  -"+CBS : PRINT# 15. DBS : CLOSE ! 5 

: RETURN 

7000  PR I N  T " C" :  OPEN 15,8,15:PRINT#15,"I0": 
GOSUB9 100: CLOSE 1 5 

7010  OPEN  1 ,  8 , 0 ,  "  S"  :  A=0  :  BS=  "  "  :  CS=  "  "  :  FQR I  = 
t  T06: GET# 1 , AS : NEXT 

7020  F0RI=7T025: PRINT "13" ; : GET#1 , AS:  BS=B* 
+AS: NEXT : PRINTTAB (10) BS: BS=" “ 

7030  FORI “25T038: GET#1 , AS: NEXT: F0RI=1T05 
00:FOR.I  =  1TO18 

Z040  GET#  1  ,  AS:  IFAS  :  >CHRS  (34)  T  HENCS==CS+AS 
7050  NEXTJ 

7060  F0RJ=1 T05:BET#1 ,AS; IFAS  >CHRS(32)TH 
ENBS-BS+AS 


7070  NEXT 

70S0  IFC*="| I I I I II II I I I I I I II I " THENCLOSE 1 
: PRINT " | I TTF  | ASTE  DRÜECKEN 1 " : WAIT 198 , 1 : 
RETURN 

7090  CL0SF15: CL0SE2 

7100  PRINTA , CS TAB (33) BS: A=A+ l : CS=" “ : BS=" 
" : F0RJ= 1 T09: GET# 1 , AS : NEXT: NEXT 
7200  PRINT’  Ll  ”t|  ~  X-_-’-|  I  “/"SPC(26>  "HÜJOI 
EVI  ELF  -ATE  I  EN  (MAX.  4)?  ■sRRTUM  >  1 
7210  GETXS: X=VAL<XS) : IFX< 1ORX>4THEN7210 
7215  I F  X  = 1 THENRE TURN 

7220  INPUT  "UÜ/EUER  —ATE I NAME-’ "  :  DBS :  OPEN  1 
5,8,15 

7230  FORS=1TOX:PRINT"B-ATEI  rt"S; : INPUTDS 
(S) :NEXTS 


7260  PRINT " HJÜ3—ATE I EN  WERDEN  VERKETTET. 
7270  0NXGQGUB5, 7300, 7400, 7500 
7280  RETURN 

7300  DAS”" C0:  “+DBS+"=0:  "+DS  ( 1  >  +•■  ,0:  "+DS( 
2) : GOTO7600 

7400  DA*="C0: "+DBS+"-0: ”+DS ( 1 ) +" ,0: "+DS< 
2) +" .0: "+DS (3) : GQTO7600 

7500  DAS-  "CG:  "+DBSt-"  =  0:  "  i-DSCl)+",0:  "+DS  ( 
2)  +" .3:  " fDS (3)  i  " ,0: "+DS (4> : GOTO7600 
7600  PRINT# 1 5 , DAS s SOSUB? 100: CLOSE 1 5: RETU 
RN 


8000  POKE532B0 , 0 : P0KE532B 1,0: RET  URN 
8100  POKE53280, 12:P0KE53281 , 12: RETURN 
8500  IFZB=36ANI)ZA=54THENT=T-.  3 
8510  IFZB=36AML'2A=72THENT=T— .6. 

852G  IFZB=54ANDZft— 36THENT-T+. 3 
3530  1FZB=54AM0ZA~72TH£NT=T- .3 
8540  IFZB=72ANDZA«=36THENT-T+.  6 
8550  IFZB=*72ANDZA=54THENT-T+ .  3 
8560  RETURN 

9000  IFIP=176THENMAS=AES 
9002  IF1F"=185THENMAS=0ES 
9004  IF IP=184THENMAS=UES 
9006  IFIP=91THENMAS=8A* 

9008  IFIP=16ÖTHENMAS=GIS  ' 

9010  I F I P=93THENM AS=GUS 
9012  IFIP=174THENMAS=SSS 

9030  PRINTttl .CHRS (27) "L"CHRS (11); CHRS (0) 

; :PRINT#1 .MAS+CHRS (0) +CHRS (0) ; : IPS="":ßO 
TO5830 

9035  IFIP=173THENPRINT#1 , : CHRS (27 ) "-"CHR 
t  (1) j : 1PS~" " 

9040  I F I P= 1 89THENPR I NT# 1 , ; CHRS (27) "E"i : I 
PS="  “ 

9045  I F  T  P= 1 88THENPR I NT # 1 CHRS (27) "E"CHR 
1(27) "-"CHRS ( 1 ) ; : IPS=" " 

9050  I F I P= 1 90THEN I PS-CHRS (14) 

9055  I F I P= 191 THENPR I NT # 1 , ; CHRS (27) "-"CHR 
S(  1) ; : 1 PS— CHRS (14) 

9060  IF IP=170THENPRIMT# 1 ,; CHRS (27) "E" ; : I 
PS=CHR$ ( 1 4} 

9065  1 F I P= 1 67THENPR I NT# 1 ,;  CHRS (27) "E"CHR 
S ( 27 ) " - " CHR* ( 1 ) ; : I PS=CHR S ( 1 4 ) 

906/  XFXP=1A4THENPRIMT#1 ,  ;  CHRS (27) "F"FHR 
S (27) " ' "CHRS (77) "H'THRS (771 "-"rHR*<0> : • I 
P*=CHRS (20) 

9070  IFIP=171THENZA=36: 1PS=" " 

9072  1 F IP= 1 79THENZ A=54 : IPS="" 

9074  IFIP=177THENZA=72: IPS=”" 

9076  IFIP=172THENPRINT#1 ,CHRS (27) "S"CHRS 
(0) ;  :  IPS="*‘ 

9078  IFIP=187THENPRINT#1 , CHRS (27) "S"CHRS 
(1) ; : IPS=" " 

9090  IFZBOZATHENGOSUB85B0 
9092  GOTO5830 

9100  I NPUT# 15 , VS , WS , XS . YS : I FVAL ( VS ) < >0TH 
ENPR I  NT  "U"  VS ,  WS  ,  XS ,  YS  "  ÜJ 
9110  RETURN 

9200  0P£N2,8,2,DBS: SOSUB9 500: I FVAL (VS)<> 
63TFENCL0SE2: PRINT# 15, "S0: " +CBS : GOTO6220 
9210  IFVAL (VS) =63THENPRINT"— ATEI  UEBERSC 
HREIBEN  13<J/N) 

9220  GETZS: IFZS=" "THEN9220 

9230  1 FZS=“N"THENCLQSE2: CL0SE15: GOTO6200 

9240  I F ZS= " J " THENCLOSE 2 : PR I NT# 1 5 , " S0 : " +C 

BS: GOSUB9I00: GOTO6220 

9250  GQTO9220 

10000  XS="":X-0:a=0:W=0:F-RINT"Cm  EXTF'ROG 
RAMM  U#^.  -»!- H  HÜÖ 

10010  PRINT"  \ENUE:  "SPC  (34) - Jl'»l 

131 -5  |  EXT  EINGEBEN  "SPC  (64) 

10020  PR  TNT  "132- !?  I  EXT  KORRIGIEREN"  SPC  (61 
)  "133-  ■  |  EXT  FORMATIEREN  "SPC  (61  i 
10030  PRINT"UJ4-“  I  EXT  AUSDRUCKEN "SPC (62) 
"125-5  -ISKETTF.NVERWALVUNG" SPC  (58) 

10040  PRINT”la6-  ■  IRTEFKOPF  F I NGE BEN “ SPC  < 
59)  "137-5  — NDßttlOMlllliriNGABE  > 

10060  GETXS: X=VAL(XS) : IFX  1ORX>7THEN1006 
0 

10070  IFX-7THENP0KE788 ,49:  PRINT "Lj"  ;  :  END 
1.0075  IFX=5THEN6000 

10080  ONXGaSUB2000,3000, 4000, 5000, . . 1000 
: GOTQ10000 

11000  PRINT  T5..I  EBEN  ¥1E  BI  TTF  DEM  |  EXT  D 
ES  I R I EF KOFFESl- 1 N :  < sRRTUM  -  0) 

11010  I NPUT "ISSE ILE  1  LI:  "sWIS:  IFW1S"»"0”T 
HENREl'URN 

11015  I NPUT"lÜ4E I LE  2  LI:":W2S 

11020  I NPUT "IU4E ILE  3  LI:":  W3S :  I NPUT "  13*E I 

LE  4  LI:"; Wa* 

1  1030  1  NPUT "13*T RASSE:  “;W4T:  ) NPUT " l!Tl>/ 00 
HNORT/H*:  ";W5S 

11050  INPUT'T3I  ELEFOM:  ";  W6S:  I NPUT "[fl-ATUM: 
" ;  W7S 

110(d0  PRINT"13*NSCHRIFT  EINGEBEN"7  <J/N) 
11070  GETYS: IFY*=""THEN1 1070 
11080  IFYS="N"THENRETURN 
11090  IFYS=" J"THEN1 1 1 10 
11100  G0T01 1070 

11110  PRINT"L"  :  F0RP=1T05:  PRINT  "BJ4EII.E"P" 
: "; : INPUT AS (F> : NEXTP:  RETURN 

READY. 
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Die  Anwendung  des 

hier  vorgestellte  »elektronische  Lehrerkalender«  entstand  aus  dem  Bedürf¬ 
nis  heraus,  sich  die  im  Lehrerberuf  anfallende  tägliche  Routinearbeit  zu  er¬ 
leichtern.  Das  Programm  übernimmt  die  Verwaltung  der  Noten  einer 
Schulklasse  und  stellt  einige  Funktionen  zur  Verfügung,  mittels 
derer  sich  der  Lehrer  schnell  einen  Überblick  über  den 
Leistungsstand  der  Klasse  verschaffen  kann. 


Nachdem  das  Programm 
geladen  wurde,  er¬ 
scheint  zunächst  das  Haupt¬ 
menü  (Bild  1).  Durch  Wahl  ei¬ 
ner  der  im  Menü  angezeig¬ 
ten  Ziffern  können  nun  die 
einzelnen  Programmteile 
aufgerufen  werden. 

Bei  der  ersten  Anwendung 
wird  man  sinnvoller  Weise 
den  Punkt  »1«  anwählen,  um 
die  Klassenliste  anzuferti¬ 
gen.  Dabei  braucht  man  sich 
nur  an  die  Bildschirmanwei¬ 
sungen  zu  halten.  Verläßt 
man  diesen  Programmteil, 
so  ist  ein  Rücksprung  dorthin 
unmöglich,  um  Fehler  in  der 
Notenzuordnung  zu  vermei¬ 
den.  Das  gilt  auch  dann, 
wenn  nach  dem  Programm¬ 
start  Daten  von  Disk  oder 
Band  geholt  wurden.  Nach 
Verlassen  des  Punktes  »1« 
oder  nach  Laden  der  benö¬ 
tigten  Daten  erscheint  unter 
Punkt  »2«  die  Übersicht  über 
Namen  und  Noten  einzelner 
Arbeiten  sowie  die  Durch¬ 
schnittsnote  der  geschriebe¬ 
nen  Arbeiten  (Bild  2).  Im  Pro¬ 
grammteil  »3«  wird  den  er¬ 
reichten  Punkten  die  ent¬ 
sprechende  Note  zugewie¬ 
sen.  Dazu  wird  zunächst 
nach  der  Nummer  der  Ar¬ 
beit  und  der  Gesamtpunkt¬ 
zahl  gefragt.  Anschließend 
gibt  der  Computer  eine  Stan¬ 
dardbewertung  aus,  die  man 
übernehmen  oder  auch 
durch  eine  andere  ersetzen 
kann.  Die  notwendigen 
Schritte  sind  auf  dem  Schirm 
erkennbar. 

Nach  der  Notenverteilung 
wird  nach  dem  Namen  und 
der  erreichten  Punktzahl  ge¬ 


fragt.  Die  Namen  können 
vollständig  oder  abgekürzt 
auf  die  ersten  vier  Buchsta¬ 
ben  eingegeben  werden.  Je¬ 
de  Eingabe  muß  mit  »RE¬ 
TURN«  abgeschlossen  wer¬ 
den.  Anschließend  er¬ 
scheint  die  erreichte  Note 
am  rechten  Bildschirmrand. 

Will  man  sich  den  Über¬ 
blick  über  Klassenarbeiten 
ausgeben  lassen,  so  wählt 
man  die  »4«.  Nach  Eingabe 
der  Arbeitsnummer  er¬ 
scheint  der  entsprechende 
Klassenspiegel. 

Die  Programmteile  »5«  und 
»6«  dienen  der  Datenpflege. 
In  »5«  können  Neuzugänge 
an  die  Liste  angefügt  wer¬ 
den.  Die  Vörgehensweise 
entspricht  dem  Teil  »1«.  In  »6« 
können  eingetragene  Arbei¬ 
ten  wieder  gelöscht  werden. 
Dieser  Programmteil  wird 
durch  ein  Untermenü  ge¬ 
steuert,  das  auch  den  Rück¬ 
sprung  ins  Hauptmenü  ge¬ 
stattet.  Alle  Arbeiten  der 
Nummer  X  werden  durch 
die  Ziffer  »2«,  Arbeiten  ein¬ 
zelner  Schüler  durch  die  »1« 
gelöscht.  Die  Eingabe  der 
Schülernamen  erfolgt  wie  im 
Programmteil  »Notenvertei¬ 
lung«. 

Sollen  alle  gespeicherten 
Daten  ausgedruckt  werden, 
so  wählt  man  die  »7«  (Bild  3). 
Getestet  ist  dieser  Teil  auf 
dem  Nachfolger  des  VC 
1525,  dem  MPS  801. 

Um  das  Programm  zu  be¬ 
enden,  drückt  man  schließ¬ 
lich  die  »8«.  Dieser  Teil  sorgt 
für  die  Datensicherung  auf 
Diskette  oder  Band. 

(Dirk  Schwerdfeger) 


Bild  3.  Auf  Knopfdruck  möglich  —  Ausdruck  von  Klassen¬ 
spiegeln  zu  allen  Arbeiten 
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Bild  1.  Das  Hauptmenül 

des  Lehrerkalenders 
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Monats  -  Lehrerkalender 


Variablenliste  des  Lehrerkalenders 


KL$  =  :Klasse 

SJ$  =  :Halbj-Beginn 

B$  =  :Nameneing.  in  ’3’ 


A$(N)=  :Name 
FA$  =  :Fach 
FI$  =  :Filename 
Für  ’GET’:  0$/X$/Z$ 

X2  =  :Rückspr.-Abfrage  Y=:Daten  laden? 

Ll/L2  =  :Namen  bis  10  Zeichen  auffüllen 
T=  :Arb-Nummer  W=  :Arb-Nummer  in  ’5’ 

GP  =  :Gesamtpunkte  EP  =  :err.  Punkte 

Z1-Z5  =  :Notengrenzen  DN  =  :Durchschnittsnote 

KS/KG/KB/KA/KM/KU  =  :Noten  im  KL-Spiegel 
AZ  =  :Arb.-Zähler 

Zählvariablen  (FOR/NEXT):I/J/K/M/N/S/T  . 


Zur  Enstehung 
des  Programms 

»Lehrerkalender«  S46R 

Als  Lehrer  an  einer  Hauptschule  in  Bielefeld  unterrichte 
ich  unter  anderem  auch  das  Fach  »Technik«.  Durch  die 
Diskussion  um  die  Möglichkeiten  und/oder  Gefahren  der 
»EDV«  angeregt,  habe  ich  mir  zunächst  durch  Fachzeit¬ 
schriften  ein  grobes  Grundwissen  auf  diesem  Gebiet  an¬ 
geeignet. 

Dabei  kam  ich  zu  der  Überzeugung,  daß  das  Arbeiten 
mit  Computern  auch  an  die  Hauptschule  gehört.  Um  zu 
beurteilen,  in  welchem  Ausmaß  meine  Schüler  den  Um¬ 
gang  mit  Computern  erlernen  können,  fehlte  mir  jedoch 
die  eigene  praktische  Erfahrung. 

So  kaufte  ich  mir  vor  gut  einem  Jahr  den  »Sinclair  ZX81«, 
um  erste  Programmiererfahrungen  zu  sammeln.  Schon 
bald  erkannte  ich,  daß  dieses  Thema  auch  an  meinem 
Schultyp  durchführbar  sein  müßte.  Ich  entschloß  mich, 
nach  einem  Computer  Ausschau  zu  halten,  der  meinen  un- 
terrichtlichen  Vorstellungen  am  nächsten  kam.  Meine 
Wahl  fiel  auf  den  Commodore  64,  mit  dem  ich  nun  seit  Au¬ 
gust  ’83  arbeite. 

Nachdem  ich  zunächst  die  üblichen  »Benzinkosten«-Pro- 
gramme  geschrieben  hatte,  mir  diese  aber  bald  ziemlich 
überflüssig  vorkamen  und  ich  andererseits  meine  Pro¬ 
grammierfortschritte  überprüfen  wollte,  ging  ich  dazu 
über,  nach  Arbeiten  zu  suchen,  die  mir  der  Computer  er¬ 
leichtern  konnte.  Eines  dieser  Programme  ist  der  »Elektro¬ 
nische  Lehrerkalender«. 

Wenn  ich  jetzt  eine  Arbeit  korrigiert  habe,  gebe  ich  nur 
noch  Gesamtpunktzahl,  Namen  und  die  erreichte  Punkt¬ 
zahl  ein.  Der  Computer  gibt  dann  die  entsprechende  No¬ 
te,  den  Durchschnitt  aller  bisher  geschriebenen  Arbeiten 
und  auf  Wunsch  den  jeweiligen  Klassenspiegel  aus. 
Selbstverständlich  lassen  sich  diese  Daten  auch  aus- 
drucken. 

Der  »Elektronische  Lehrerkalender«  ist  mir  somit  eine 
echte  Hilfe  bei  der  täglichen  Arbeit. (Dirk  Schwerdfeger) 


Bild  2.  Die  Kiassenübersicht  enthält  neben  den  Schülernamen  auch  die 
Ergebnisse  der  letzten  sechs  Klassenarbeiten 
sowie  den  Notendurchschnitt  jedes  Schülers 


KLASSE: DE 

HALB J- BE G I NN  :  i. . 4*84 


RITTER 


HERMANN 


FACH: MO 


SCHWARZ 

3 

H 

NEUMANN 

4 

3 

MUELLER 

5 

2 

KRUEGER 

6 

i 

JOCKEL 

rm 

6 

WEISSNIX 

2 

5 

KRUSE 

3 

4 

100  REM  **************************** 


101  REM 

102  REM 

103  REM 

104  IM 

105  REM 

106  REM 

107  REM 

108  REM 

109  REM 

110  REM 

111  REM 

112  REM 


ELEKTR. 

LEHRERKALENDER 

VON 


DIRK  SCHWERDFEBER  * 

HE I TLANDSTR .  20  * 

4800  BIELEFELD  1  * 

* 

* 

VERS. : 10/83/1.  * 

03/84/2.  * 

113  REM  **************************** 

299  REM  ***TITELBILD*** 

300  POKE53280 ,2: P0KE53281 ,2: PRINT"! " 

310  PRINT » ll'DDl'L'L'I'L'L'I»» »tll» ELEKTRON I S 
CHER" 

320  PR I NT " L«I«iiill»i>itliMI_EHRERKALENDER“ 
330  FORI=0TO2000: NEXTI 

400  POKE53280, 1 1 : P0KE53281 ,11: PRINTME" 

489  REM  ***SF‘E  I  CHER  FUER  LISTE  FREI  MACHE 
N*** 

490  DIMA$(36>  :  DIMA<36,7>  Listing  vom 

499  REM  ***HAUPTMENU***  »Lehrerkalender« 

500  PRINT”  MIJMENU 11 

510  PRINT"fJ>HH»»iai»  LISTE  SCHREIBEN 

520  PRINT"L'iit»HH:l2» 

EBEN" 

530  PRINT"üI,ltBMMia3g 
GEN" 

540  PRINTnL»»W»ltia4" 

550  PRINT,,L*fiil»iH35" 

II 

555  PRINT"lHJfe*JUU»MLia65 
EN" 

560  PRINT»fclHi>fHI37» 

565  PRINTl'ÜWift.M>il3Bg 

570  pr i  nt -&■  ijjittiaa»** 

HLEN  ***■" 


UEBERSICHT  AUSG 

BENOTUNG  FESTLE 

KLASSENSPIEGEL" 
LISTE  ERWEITERN 

ARBEITEN  LOESCH 

DRUCKEN" 

BEENDEN" 

BITTE  ZIFFER  WAE 
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600  GETZT-:  IFZT="  "THEN603 

610  IFASC (ZT) <490RASC (ZT-) >56THEN600 

620  Z=V'AL  (  ZT )  :  ONZGOTO 1 000  T  1 900 , 3000 , 4000 

, 5000 , 6000 , 7000 , 1 0000 

999  REM  ***LISTE  SCHREIBEN*-»* 

1000  I FX2= 1 THEN500 : REM  *UEBERSCHRE I BSCHU 
TZ* 

1005  PR I NT" LASSENLISTE  SCHREI 
BEN" 

1010  PRINT"LUBITTE  NACH  JEDER  EINGABE":  PR 
I NT “ RETURN '  DRUECKEN . " 

1020  INPUT "KLASSE  :  " ; KLT 

1030  INPUT "FACH  :  " ; FAT 

1040  I NPUT "HALBJ-BEG I NN  :  ";SJT 

1060  PRINT"LTACH: " ; FAT , "KLASSE: " ; KLT 

1070  PR INT "HALBJ-BEG INN:  ";SJT 

1080  PRINT,,[«I»I«PITTE  JETZT  NAMEN  EINGEBEN 

, D IE  NICHT  " 

1090  PR I NT " L AENGER  ALS  10  ZEICHEN  SIND." 
1095  PR INT "BEI SPIEL:  SCHWERDF.D" 

1100  PRINT"ÜIÜUM  DIE  LISTE  ZU  SCHLIESSEN, 
ALS  LETZTEN" 

1110  PR INT "NAMEN  '*'  EINGEBEN. " 

1120  N=N+ 1 

1130  INPUT "NAME  ":AT(N) 

1135  REM  **NAMENSLAENGE  PRUEFEN** 

1140  IFLEN (AT (N) ) >10THENPRINT"ZUVIELE  ZE 
I CHEN !": GOTO 1 130 

1150  I FAT-  (N)  =  "*" ORN >35THENG0T0 1 1 70 

1151  REM  *NAMENT  AUF  10  ZEICHEN  BRINGEN* 

1152  L1=LEN ( AT (N) ) : IFL1=10THEN1 160 

1154  L2=10-L1:FORJ=1TOL2:AT(N)=AT(N)+"  " 
: NEXTJ 

1160  GOTOl 120 

1170  PR  INT"!'»»  »LISTE  GESCHLOSSENLiJBIBIBBI 
!■■■■■■  Bl SlI^ZURUECK  MIT  EINER  TASTE"  :Y=1 
1180  GETZT: IFZT=" "THEN1180 
1190  IFZT<  >" "THENX2=1 : GOTO500 

1899  REM  ***UEBERS I CHT  AUSGEBEN*** 

1 900  I FY=0THENGOSUB 1 5000 : X2= 1 

2000  PR  INT  "KLASSE:  "  ;  KLT  ,  ,  "FACH:  "  ;  FAT 
2015  PR INT "HALBJ-BEG INN: "  ;  SJT 
2020  FORI=1TO10 

2030  PRINT - 1 - ! 

“I - 1 - ; 

2040  PRINT"  |  | 

I  I 

2050  NEXTI : S=1 : T=10 
2052  PRINT"ÖLÜ":FORI=STOT 
2055  I F I =NOR I >35THEN2090 
2060  GOSUB 16000 

2069  PRINT"iaM; 

2070  PR INTAT ( I ) 

2071  PRINTTAB (11) "□"A (1,1) 

2072  PRINTTAB (15) "□"A(I ,2) 

2073  PRINTTAB (19) "□"A(I ,3) 

2074  PRINTTAB (23) "□"A(I ,4) 

2075  PRINTTAB (27) "□"A(I ,5) 

2076  PRINTTAB (31) "□"A(I ,6) 

2077  PRINTTAB  (35)  "□  I1BHM 

2078  IFA (1,7) =INT (A ( I ,7) ) THENPRINTTAB (35 
) "□"A(I ,7 ) : REM  *  ZE I LENAUSGLE I CH* 

2079  IFA ( I , 7) <  >INT ( A ( I ,7) ) THENPRINTTAB (3 
5) "□"A(I ,7) ; : REM  *ZEI LENAUSGLE ICH* 

2080  NEXTI:  IFSMTHEN2100 

2090  FR  I  NT  "  dJ l' V L V  L- I? V !■ l1  !■  l> L1  V L1  L1 11  L L» V 1?  I?  LU  H  W  E I 

TER  MIT  'IV  ZURUECK  MIT  '2'" 

2100  GETZT: IFZT=" "THEN2100 

2110  IFASC (ZT) <490RASC (ZT) >50THEN2100 

2120  IFZT=" 1 " THENS=S+ 1 0 : T=T  +10: GOTO2052 


I  I  I 


Listing  vom 
»Lehrerkalender« 
(Fortsetzung) 


I  - 

2130  I FZT-=  " 2 "  THEN500 

2999  REM  ***N0TEN9ERTE  I LUNG*** 

3000  IFY=0THENGOSUB15000: X2=l 

3005  PRINT-ll^DaiiiiBBU^QTENVERTEILUNGg" 
3010  INPUT"L'»itülHARBEIT  NR.:  ";T 
3020  I NPUT " L<>  11  GESAMTPUNKTZAHL :  "  ;  GP 
3025  REM  ***VERT.  BERECHNEN*** 

3030  PR  I  NT  " LI13ST ANDARDVERTE I  LUNG :  ■" 

3040  Z 1 = I NT ( GP* . 98+ . 5 ) : Z2=INT (GP*. 85+ . 5) 

:  Z3=INT (GP*. 7+ . 5) : Z4=INT (GP*. 5+. 5) 

3050  Z5=INT (GP*. 25+. 5) 

3060  PRINT"L»»tSEHR  GUT:  "GP"-"Z  1 
3070  PR  INT  "l!U  GUT:  "Zl-l  "-"Z2 

3080  FRINT"L'UBEFRIED.  :  "Z2-1  "-"Z3 
3090  PR I NT " tUAUSRRE I . : "Z3-1"-"Z4 
3100  PRINT"LÜMANGELH. : "Z4-1"-"Z5 
3110  PRINT"LilJUNGENUE.  :  " Z5-1  "—  0" 

3120  PRINT"tl£iOECHTEN  SIE  EINE  ANDERE  WE 
RTUNG7 ( J /N) ■" 

3130  GETZT: IFZT=" "THEN3130 
3140  I F ZT=  " N " THENPR INT" QlJD I ESE  WERTUNG  W 
ERDE  ICH  ANWENDEN  ■":G0T03145 

3142  GOTO3150 

3145  FÜR I =0TO3000 : NEXT : GOTO3300 
3150  IFZT=" J "THEN3170 
3160  GOTO3130 

3165  REM  ***EI GENWERTUNG  EINGEBEN*** 


3170  PR I NT " d'L»L»lJL»L'l'l'L> »»»»»»»»»»iHifili 
IlHjE I GENWERTUNG :  □" 

3180  PRTNT"[ii>Hl>>>>iB>>ll>>l>>U"GP"-" : 

: INPUT ZI 

3190  PRINT"L«>>>ii>»>iBiii>»iBti»U"Zl-l  "- 

"; : INPUTZ2 

3200  PRiNT"L'»i»illii»Bili»»iliir  Z2-1 "- 
M. . T  NPUTZ3 

Älü  PRINT"L»»E»»»»»»»»»»»»»»i»»»U"Z3-l"- 

: INPUTZ4 

3220  PRINT"L«»>ilPi>Biii»i>ii>B>U"Z4-l"- 

" ; : INPUTZ 5 

3230  FRINT"L‘»»i»»»i»i»»i»»»if»f»irZ5-l"- 

0" 


3240  PR I NT " Ül^I HRE  WERTUNG  WERDE  ICH  ANWE 
NDEN  ■" 

3250  FOR I =0TO3000 : NEXT 

3299  REM  ***NOTEN  BERECHNUNG*** 

3300  PR I NT " LLJUJARBE I T  NR.:";T 
3310  PR I NT "  tUUGES-PUNKTE  : " ; GP 

3320  PRINT"L»»»iHriAME:  »»ÜERR-  PUNKTE:  »H 
»»»NOTE:  " 

3340  PRINT 

3350  K=K+ 1 :  I NPUTBT- :  I  FBT=  "  *  "  ÜRK=NTHEN500 

3360  I  NPUT  "n>HHHIHIHHtH":EP 

3370  IFEP>=Z1THENEN=1 

3380  I FEP  >=Z2ANDEP<  Z 1 THENEN=2 

3390  IFEP>=Z3ANDEP<Z2THENEN=3 

3400  IFEP>=Z4ANDEP<  Z3THENEN=4 

3410  IFEP>=Z5ANDEP<  Z4THENEN=5 

3420  IFEP< Z5THENEN=6 

3499  REM  ***NAMEN-SUCH-ROUTINE*** 

3500  F0RJ=1T0N 

3510  IFLEN (BT)=4THEN3530 

3511  L1=LEN(BT) : IFL1=10THEN3520 

3512  L2= 1 0-L 1 : FORO= 1 T0L2 : BT=BT+ "  ":NEXTO 
3520  I FBT=AT ( J ) THENM=J : A ( M , T ) =EN : J=N : GOT 
03550 

3530  I FLEFTT  ( AT  <  J )  , 4 ) =BTTHENM=J : A (M , T) =E 
N: J=N: GOTO3550 

3540  IFJ=N  THENPRINT'TliHIHIIIiNICHT  G 
EFUNDEN  " : XY=1 

3550  NEXTJ 
3555  IFXY=1THEN3610 
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NGEBEN , " 

UUUUU"A<M,T) 

6110  PR INT" JESSEN  ARBEIT  GELOESCHT  WERD 

3610  XY=0: GOTO3350 

EN  SOLL. " 

3799  REM  »»»KLASSENSPIEGEL*** 

6120  PRINT " fJl?»U"  :  I NPUT " NAME "  ;  B* 

4000  IFY=0THENGOSUB15000: X2=l 

6130  F0RJ=1T0N 

6140  IFLEN (B*)=4THEN6180 

|  EL5" 

6150  L1=LEN(B*) : IFL1=10THEN6170 

4010  PR  INT  "[HUDEN  KLASSENSPIEGEL  WELCHER 

6160  L2=l 0— LI : F0RQ=1 T0L2: B*=B*+"  " : NEXTO 

ARBEIT  " 

6170  I FB*=A* ( J ) THENM=J : A ( M , W ) =0 : G0T06 1 90 

4020  PR I NT " [HUWOLLEN  SIE  SEHEN?  ß( 1-6)5" 

6180  IFLEFT* ( A* ( J ) ,4) =B*THENM=J : A (M , W) =0 

4030  GETZ*: IFZ*=" "THEN4030 

6190  NEXTJ 

4040  IFASC ( Z*) < 49ÜRASC ( Z*) >54THEN4030 

6200  PR I NT " LüIÜD I E  ARBEIT  VON  "A*(M) 

4050  Z=VAL(Z*) 

6210  FRINT"[iJWURDE  GELOESCHT .":  FORU=0TO99 

9: NEXTU: GOTO500 

T" 

6499  REM  ***ARB.-NR.X  LOESCHEN*** 

6500  PRINT"LDIE  ARBEIT  NR. : "W"  WIRD  GELO 

II 

ESCHT. " 

6510  F0RI  =  1T0N  Listing  vom  »Lehrerkalender« 

6520  A  ( I ,  W )  =0  (Rjrtsetzung) 

4270  PRINT"»»»»U»»1!  •  ftiBI  llll  llll  1 

6530  NEXTI 

•  1 

6540  FORU=1TO500: NEXTU 

4280  J=Z:G0SUB 17000 

6550  GOTO500 

4299  REM  «-»VERTEILUNG  AUSGEBEN** 

6999  REM  ***AUSDRUCK*** 

4300  PR I NT " □" T AB  <  6 ) KS 

7000  IFY=0THENGOSUB15000: X2=l 

4310  PR I NT T AB (10) KG 

7010  PRTNT"LT*HI«l'I»DIE  KLASSENLISTE  DER  "KL 

4320  PRINT"D"TAB (14) KB 

*" WIRD" 

4330  PR INT "□"TAB (18) KA 

7020  PR  INT  "[«]NUN  AUSGEDRUCKT.  " 

4340  PRINT'TT'TAB  (22)  KM 

7030  PRINT  "L'L1!  fl  IST  DER  DRUCKER  BEREIT  ? 

4350  PR INT "□"TAB (26) KU 

■(J/N) " 

4400  PR I NT (WEITER  MIT 'IV  ZURUECK 

7040  GETQ* : I FQ*= " " THEN7040 

MIT'2'5" 

7050  I FQ*< > " J " THEN500 

4410  GETX*:  IFX*="  "THEN4410 

7060  PRINT"G  BITTE  ETWAS  GEDULD. 

4420  I FASC ( X* ) < 490RASC ( X* ) >50THEN44 1 0 

" 

4430  I F  X*=  "  2  "  THEN500 

7065  REM  ***DRUCK!-ROUTINE*** 

4440  IFX*=" 1 "THEN4000 

7070  0PEN4 ,4,0 

4999  REM  ***LISTE  ERWEITERN*** 

O 

7075  r"RINT#4 , "KLASSE: "KL* ,, "FACH: "FA* 

5000  IFY=0THENGOSUB 15000: X2=l 

7077  PRINT#4, "HALBJ-BEGINN: "SJ* 

5010  PRINT"LFACH: " ; FA* , "KLASSE:  "  ;  KL* 

7030  PRINT#4," - 1 - 1 - 1 - 1 - 

5020  PR I NT " HALB J— BEG I NN :  "  ;  SJ* 

1 - 1 - 1 - - 

5030  PR I NT " tiiülMB I TTE  JETZT  NEUE  NAMEN  EIN 

7090  FOR 1=1 TON- 1 : GOSUB 1 6000 

GEBEN. " 

7100  PR I  NT #4 ,  A*  <  I )  "  |"  A  ( I  ,  1 )  "  |"A(I,2)"  |"A 

5040  PRINT"[«J(MAX.  LAENGE  :  10  ZEICHEN)" 

(1,3)"  !"  A  ( I  ,  4)  "  I"  A  ( I  ,5)  "  !"A  ( I  ,6)  "  !"A(I,7 

5050  PRINT"IÜ  '*'  SCHL I ESST  DIE  LISTE." 

) 

5060  N=N— 1 

7110  NEXTI 

5070  N=N+ 1 

7120  PRINT#4," _ 1 _ J _ 1 _ 1 _ 

5080  INPUT "NAME" ; A* (N) 

J _ 1 _ 1 _  " 

5090  IFLEN (A* (N) ) >10THENPRINT"ZUVIELE  ZE 

7200  CL0SE4 

ICHEN! " : GGTQ5080 

7500  FR I NT " LiSOLLEN  DIE  KLASSENSPIEGEL  AU 

5100  IFA* (N)="*"THEN5150 

CH  " 

5110  L1=LEN(A*(N) ) : IFL1=10THEN5140 

7600  PR I NT " [ÜAUSGEDRUCKT  WERDEN  ?  (J/N)" 

5120  L2= 1 0-L 1 : FOR J  = 1 T0L2  s  A* ( N ) =A* ( N ) + "  " 

7610  GETQ*: IFQ*=" "THEN7610 

: NEXTJ 

7620  I FQ*= " N " THEN500 

5140  GOTO5070 

7630  IFQ*=" J "THEN7700 

7640  GOTO7610 

IBBBIIIIII HjZ URUECK  MIT  EINER  TASTE" :Y=1 

7700  PR T NT "ülftttNUN  WERDEN  DIE  KLASSENS 

5160  GETZ*: IFZ*=" "THEN5160 

PI EGEL" 

5170  GOTO500 

7710  PRINT"ÜjAUSGEDRUCKT.  "  :  F=6 

5999  REM  ***ARBE I TEN  LOESCHEN*** 

7800  0PEN4 , 4 

6000  IFY=0THENGOSUB15000: X2=l 

7805  PR INT#4, "KLASSENSPIEGEL" 

6010  PR  INT  "WELCHE  ARBEIT  SOLL  GELOESCHT 

78 1 0  FOR J= 1 TOF : GOSUB 1 7000 

WERDEN?" 

7820  I FKS=0ANDKG=0ANDKB=0ANDKA=0ANDKM=0A 

6020  PRINT:  INPUT "ß  (1-6)  5  "  ;  W 

NDKU=0THENF=J : GOTO7890 

6030  PRINT"L»I*l*L'»il:U5  EINZELNE  ARBEITEN" 

7830  PRINT#4,J". ARBEIT" 

6035  PR I NT " Lü!_§11125  ALLE  ARBEITEN  DER  NR. 

7840  PRINT#4,  1  II  1  III  1  IV  1 

:";W 

V  |  VI  " 

6040  PR I NT " L'J •  l:T3—  ZURUECK  INS  MENU" 

7850  PRINT#4,  "SilüLl - 1 - 1 - 1 - 1  * 

6050  GETZ*: IFZ*=" "THEN6050 

6060  IFASC (Z*) <  49ÜRASC (Z* ) >51THEN6050 

7860  PR I NT #4 , KS ; TAB ( 2 ) KG ; TAB ( 2 ) KB ; TAB ( 2 ) 

6070  Z=VAL(Z*> : DNZGDT06 100, 6500, 500 

KA ;  TAB ( 2 ) KM ; TAB ( 2 ) KU 

6099  REM  ***SCHUELERA .  LOESCHEN*** 

7890  NEXTJ 

6100  PRINT"LBITTE  NAMEN  DES  SCHUELERS  EI 

7900  CL0SE4: GOTO500 
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9999  REM  *** BEENDEN*** 

GELESEN" 

1  (7K71I71P)  PRTNT,'Li'i't»PEVOR  DAS  PROGRAMM  ENDE 

1 5020  PR  I  NT  "  l»JWERDEN .  " 

T , MUESSEN" 

15022  INF'UT  "tKLASSE:  "  ;  KL» 

10010  PR INT" LUJZ UNAECHST  ALLE  DATEN  ABGES 

15024  INPUT"LIFACH  :  " ;  FA» 

REICHERT" 

15026  FI»=KL»+FA» 

1 0020  PR  I  NT  "  IÜJWERDEN .  " 

15030  PR I NT " L'I'I'L'L'» » » » 1  ßl«  VON  KASSETTE" 

10030  PRTNT"{«I»I'»»»I:J1"  AUF  KASSETTE  SPEIC 

15040  PRINT"L»»»»»I  132«  VON  DISKETTE" 

HERN" 

15050  PR I NT " L»l«L»l»I»l»» K 1 » » 1  ;J*B I TTE  ZIFFER  WA 

10040  PR I NT " LJLÜLJ25  AUF  DISKETTE  SPEICHE 

EHLEN*«" 

RN" 

15060  GETZ»: IFZ»=" "THEN15060 

10045  PR I NT " L'l'L'l'l»»»  »  1  :<*B I TTE  ZIFFER  WAEHL 

15070  IFASC ( Z») < 490RASC ( Z» ) >50THEN15060 

EN*«" 

15075  PRTNT"THHHHI«I.«3DIE  DATEN  WERDEN  EING 

10050  GETZ»: IFZ»=" "THEN10050 

ELESEN. " 

1 0060  I FASC <  Z$  >  <  490RASC ( Z»  > >50THEN 1 0050 

15077  PRINT"l»I»I»I»IBITTE  ETWAS  GEDULD." 

10070  Z=VAL(Z») : ONZGOTO10100 , 1 1000 

15080  Z=VAL ( Z») : ONZGOTÜ15200 , 15600 

10099  REM  ***DAT A-SAVE  /  TAPE*** 

15099  REM  ***DAT A-LOAD  /  TAPE*** 

10100  PR I NT *' L  1»L'> B I TTE  KASSETTE  AUF  FREIE 

15200  OPEN 1,1,0, FI» 

N  " 

15210  INPUT# 1 ,KL» 

10110  PR I NT " tüSPE I CHERPL ATZ  VORSPULEN." 

15220  INPUT# 1, FA» 

10120  PR I NT "lililiUHABEN  SIE  DAS  BAND  POSIT 

15230  INPUT#1,SJ» 

IONIERT?  (J/N)" 

15240  N=N+ 1 

10130  GETZ»:  IFZ»=" "THEN10130 

15250  INPUT# 1 ,A»:A» (N)=A» 

10140  IFZ»="J"THEN10200 

15260  IFA» (N) ="*"THEN 15280 

10150  IFZ$="N"THEN10100 

15270  GOTO 15240 

10160  IFZ»<>"J"ANDZ»<>"N"THEN10130 

15280  F0RI=1T0N 

10200  PR  INT  "11»»  ID  IE  DATEN  WERDEN  NUN  GESP 

15290  F0RJ=1 T06 

EICHERT. " 

15300  I NPUT #1,A(I,J) 

10210  PRINT-LULETWAS  GEDULD  BITTE.  "  :  FI»=K 

15310  NEXTJ : NEXTI 

L»+FA» 

15400  I  NF'UT  #  1  ,  Y 

10220  0PEN1 . 1 . 1  .FI» 

15410  CLOSEI 

10230  PR I NT# 1, KL» 

15500  RETURN 

10240  PR I NT# 1, FA» 

15599  REM  ***DAT A-LOAD  /  DISK*** 

10250  PRINT#1,SJ» 

15600  FI»=FI»+" ,S,R":  0PEN2 , 8 , 2 , F I» 

10260  F0RI=1T0N 

15610  I NPUT #2 , KL» 

10270  PRINT#1,A»(I) 

15620  I  NF'UT  #2 ,  F  A» 

10280  NEXTI 

iur 

f5ci30  INPUT#2 ,  SJ» 

10290  F0RI=1T0N 

15640  N=N+1 

10300  F0RJ=1T06 

15650  I NPUT #2 , A» : A» ( N ) =A» 

10310  PRINTttl , A ( I , J ) 

15660  IFA»  (N)  =  "*,,THEN  15680 

10320  NEXTJ 

15670  GOTO15640 

10330  NEXTI 

15680  FOR 1=1 TON 

10415  PR I NT #  1  ,  Y 

15690  F0RJ=1T06 

10420  CLOSEI: GOTO 12000 

15  /00  INPU  1  #2 ,  A  ( 1 ,  J  )  Lisling  vom  »Lehrerkalender« 

10999  REM  ***DAT A— SAVE  /  DISK*** 

15710  NEXTJ:  NEXTI  (Schluß) 

11000  PRINT" LL'iJD I E  DATEN  WERDEN  NUN  GESP 

15800  INPUT#2 , Y 

EICHERT. " 

15810  CL0SE2 

11010  PR I NT " LllETWAS  GEDULD  BITTE. ": FI»=" 

15900  RETURN 

§ : "+KL»+FA»+" ,S,W" 

15999  REM  ***DURCHSCHNITT  BERECHNEN*** 

11020  0PEN2 ,8, 2, FI» 

16000  DN=0: AZ=0 

11030  PR I NT #2 , KL» 

16010  F0RJ=1T06 

11040  PRINT#2,FA» 

16020  DN=DN+A(I,J) 

11050  PRINT#2,SJ» 

16030  IFA (I ,J)=0THEN 16050 

11060  FÜR 1=1 TON 

16040  AZ=AZ+ 1 

11070  PR I NT #2 , A» ( I ) 

16050  IFJ=6ANDAZ=0THENAZ=1  :  REM  **DIV.D'JR 

110B0  NEXTI 

CH  0  VERHINDERN** 

11090  F0RI=1T0N 

16060  NEXTJ 

11100  F0RJ=1 T06 

16070  A ( I , 7 ) = I NT ( ( DN/AZ ) *  1 0+ . 5 ) / 1 0 

11110  PRINT#2,A  < I  ,  J) 

16080  RETURN 

11120  NEXTJ 

16999  REM  ***KL. -SPIEGEL  BERECHNEN*** 

11130  NEXTI 

17000  KS=0: KG=0: KB=0: KA=0: KM=0: KU=0 

11215  PRINT#2 , Y 

17010  F0RI=1T0N 

11220  CL0SE2: GOTO 12000 

17020  IFA(I,J)=1THENKS=KS+1 

11999  REM  ***SCHLUSSBILD*** 

17030  IFA ( I , J ) =2THENKG=KG+ 1 

12000  PRINT" ll»L'i'L'lfi»fl»lffl" 

1 7040  I F A ( I , J ) =3THENKB=KB+ 1 

12010  PRINT"L'»»»»»»»»9»»»»»rrSCHUESS!  " 

17050  IFA ( I , J ) =4THENKA=KA+ 1 

17060  IFA  C I , J ) =5THENKM=KM+ 1 

ZLO  VON  SCHWERFG" : END 

17070  I FA ( I , J ) =6THENKU=KU+ 1 

14999  REM  ***DATEN  LADEN*** 

17080  NEXTI 

15000  PRINT"LÜJUM  DAS  PROGRAMM  BEARBEITEN 

17090  RETURN 

ZU  KOENNEN," 

15010  PRINT"l»MUESSEN  ZUVOR  DIE  DATEN  EIN 

READY. 
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Nach  dem  Programmstart 
erscheint  zunächst  das  Ti- 
I  telbild,  dann  die  Frage:  »Vo¬ 
kabeln  von  Kassette  (j/n)?«. 
Wird  die  Frage  mit  »j«  beant¬ 
wortet,  kann  man  ein  Voka¬ 
belfile  von  Kassette  laden 
(sofern  bereits  eines  vorhan¬ 
den  ist).  Bei  »n«  springt  das 
Programm  zur  Routine  »Vo¬ 
kabeln  eingeben«.  Hier 
kann  man  jeweils  eine  Voka¬ 
bel  und  die  drei  Bedeutun¬ 
gen  der  Vokabeln  einge¬ 
ben.  Anschließend  gelangt 
man  zum  Menü  (Bild  1). 

Das  Menü 


Hier  kann  man  wählen 
zwischen: 

j  (Abhören  starten) 
c  (Vokabeln  verbessern) 

1  (Neue  Vokabeln) 
s  (V okabeln  speichern) 

Abhören 

Oben  links  erscheint  die 
Vokabel,  deren  Bedeutun¬ 


gen  man  eine  Zeile  darunter 
eingeben  kann  (Bild  2).  Eine 
eventuell  falsch  eingegebe¬ 
ne  Bedeutung  kann  durch 
»Home«  wieder  gelöscht 
werden. 


Leichter  lernen 

Nach  »Return«  überprüft 
das  Programm  die  Antwort 
auf  ihre  Richtigkeit  und  zeigt 
das  Ergebnis  an. 

Bei  falschem  Ergebnis 
werden  alle  richtigen  Be¬ 
deutungen  angezeigt. 

Nachdem  alle  Vokabeln 
einmal  an  der  Reihe  waren, 
erscheint  die  Bewertung 
und  eventuell  erfolgt  ein 
Sprung  zur  nächsten  Runde 
(bei  weniger  als  zwei  Feh¬ 
lern). 

Verbessern 

Mit  der  Taste  n  kann  man 
aus  dem  Vokabelspeicher 
eine  Vokabel  auswählen  und 


dann  mit  der  Taste  c  dem 
Computer  mitteilen,  daß 
man  sie  verbessern  möchte. 

Danach  erscheint  zu¬ 
nächst  die  Vokabel,  dann 
die  Bedeutungen.  Jetzt  kann 
man  bei  Bedarf  eine  Form 
neu  eingeben.  Nach  der  50. 
Vokabel  erfolgt  automatisch 
ein  Sprung  zum  Menü. 

Laden  und  Speichern 

Das  Laden  und  Speichern 
von  Vokabeln  ist  auf  den  Be¬ 
trieb  mit  dem  Kassettenlauf¬ 
werk  abgestimmt.  Durch  Än¬ 
dern  der  Geräteadresse  bei 
den  entsprechenden  OPEN- 
Statements  ist  aber  auch  das 


Arbeiten  mit  Floppy-Lauf 
werken  möglich.  Eine  Be 
Sonderheit  des  Programms 
ist  die  Tatsache,  daß  inner 
halb  einer  Runde  keine  Vo 
kabel  doppelt  erscheint 


Schneller  lernen 


Dennoch  werden  die  Vo 
kabeln  durcheinander  ab-l 
gefragt,  und  die  maximale! 
Zugriffszeit  für  eine  Vokabel 
beträgt  bei  vollem  Speicher 
nur  0,1  Sekunden. 

(Michael  Schmidt' 
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100  REM  ******************************* 
110  REM  *  MICHAEL  SCHMIDT  *  1984  MSC.* 
120  REM  *  BADISCHE  6  4  '  E  R* 
130  REM  *  MSC  * 

140  REM  *  SUPERVOC.  *  COMMODORE  64* 
150  REM  ******************************* 
160  : 

170  : 

1 80  GOSUB2060 : POKE 1 98 , 0 : W A I T 1 98 , 1 

1 90  P0KE3276B , 96 : POKE650 , 234 

200  D I MV* (50,4): PF= 1 732 : PR= 1 727 : S Y= 1 

210  PR I NT "L" s PR I NT : PR INT :  PR I NT 

220  PRINT"  VOKABELN  VON  KASSETTE  (  J  / 

N  )?" 

230  GET A* : I FA* = " J " THENGOSUB 1 320 : GOSUB 1 57 
0: GOTO750 

240  I F A*= " N " THENGOSUB 1630 : GOSUB 1 570 : GOTO 
750 

250  GOTO230 
260  GOSUB 1060 

270  N=N ( RND ( T I ) *9 ) : R=0 : F=0 : PR= 1 727 : PF= 1 7 

32 

280  M=0 

290  1=2+ 1 : M=M+N : I FM  >50THENM=M-50 

300  IFM=NTHENM1=M1+1: IFM1=2THENM1=0: Z=0: 

GOTO720 

310  POKE 2 1 4 , 2 : PR I NT : PR I NTT AB ( 4 )  "  □ 


640  PÜKE2 1 4 , 1 2 :  PR  I  NT :  PR  I  NTT  AB  ( 7 )  "  UJ  RI  CHT 
IG  " 

650  F0RK=1T0255: NEXT : P0KE214 , 12: PRINT: PR 
INTTAB (7) "■  RICHTIG  " 

660  PRINT"h " 

670  R=R+ 1 : I FR  >3THENR= 1 : PR=PR-40 

680  FOR I  =F'RT0PR+2 :  POKEI  ,.R  (R)  :  P0KE54272+I 

, 0 : NEXT 

690  P0KE214 ,20: PRINT : PRINT" 

N  . 

700  PRINT  "Li  - — - — - 


: GOTO290 


320  P0KE2 1 4 , 1 : FR I NT : PR I NTTAB ( 34 ) Z 

330  IFV* (M , 1 ) =" *"THEN290 

340  IFSX=1THENSY=INT (RND (TI ) *2+1 ) 

350  POKE 2 1 4 , 7 : PR I NT : PR I NTTAB ( 4 ) " 

360  P0KE2 1 4 , 2 : PR I NT : PR I NTTAB ( 4 ) V* ( M , SY ) ; 


370  POKE 2 1 4 , 7 : PR  I NT : B*= " ” 

380  F0RI=1T015 

390  POKE 198,0: WA I T 1 98 , 1  :  GET A* 

400  I FA*= " ö" THENP0KE2 1 4 , 7 : PR I NT : PR I NTTAB 
(4)"  □" : B*=" "  :  GOTO380 

410  IFASC (A*> =13THEN460 

420  I  FA*=  “  U"  ORA*=" LT  OR  A*=  "  1 1"  ORA*=  "  Ifl"  OR  A* 
=  "□"  OR  A*-=  "  U“  OR  A*=  "  II"  THEN390 
430  PRINTTAB (4) A*; 

440  B*=B*+A* 

450  NEXT 

460  IFSY=2THEN490 

470  FOR J=2T04 : I FV* ( M , J ) < >B*ORB*= " " THENNE 
XT : GOTO510 
480  GOTO630 

490  IFV* (M, 1 ) =B*THEN630 
500  GOTO510 
510  FZ=FZ+ 1 

520  POKE214, 12:  PRINT:  PRINTTAB  (7)  "Id  FALSC 
H*  " 

530  F0RJ=1T0255: NEXT: P0KE214, 12: PRINT: PR 
INTTAB (7)"?  FALSCH*  " 

540  PRINT"«" 

550  F=F+ 1 : I FF  >3THENF= 1 : PF=PF-40 

560  FOR I =PFTOPF +2 : POKE I , F ( F ) :P0KE54272+I 

,0: NEXT 

570  POKE 2 1 4 , 20 : PR I NT " g " : MM=0 

580  F0RI=3T05: PRINT"  :  " ; : FOR J  =  1 TOLEN ( V* 

(M, I-SY) ) 

590  MM=MM+1 

600  PR I NTM I D* ( V*  <  M , I —SY )  , J  ,  1 ) ; 

610  FORK= 1 TO 1 00 : NEXT : NEXT :  NEXT 

620  F0RI=MMT031 : PRINT"  NEXT: PRINT: GOT 

□290 

630  RZ=RZ+1 


710  GOTO290 
720  PR  INT  "LJ" 

730  IFFZ<2THEN820 
740  GOSUB870 
750  RZ=0sFZ=0 
760  GOSUB1 940 

770  GETA*: I FA*= " Y " THENGOSUB1 060 : GOTO270 
780  I FA*= " S " THENGOSUB 1 430 : GOTO750 
790  I FA*= " C " THENGOSUB 1 770 :  G0T0758 
800  I  FA*=  "  L 11 THFNRI IN200 
810  GOTO770 

820  IFSY=2ANDSZ=0THENSZ=1 : GOSUB970: SX=1 : 
GOTD750 

830  IF  SZ=1THEN1010 
840  GOSUB930 
850  SY =2 
860  GOTO760 

870  PR  I  NT » L'J.»!«!?]"  :  PR  I NT  "  VON 
SIESSB" 

880  PR I NTTAB ( 1 0 ) RZ " R I CHT I G 
890  PRINTTAB  (10)  FZ" FALSCH 
*  3  PRINT" ICH  SCHLAGE  IHNEN  VOR  DIE  VOKA 
BELNBJ" 

910  PR INT "NOCH  EINMAL  ZU  WIEDERHOLEN" 

920  FOR 1=1 9S4TO2023 : POKE I ,160: P0KE54272+ 
1,14: FOR J  =  1  TO 1 00 : NEXT : NE XT : RETURN 
930  PR  INT"  LT-LIO  BRAVO  !  :  PR  INT  "SIE  HABE 

N  VON "FZ+RZ “ VOKABELN^ " 

940  PR I NTTAB  (  10)  RZ"  GEWUSSTM&Ü" 

950  PRINT" ICH  HÖRE  SIE  JETZT  UMGEKEHRT  A 
B,! 

960  FOR 1=1 984TO2023 : POKEI , 1 60 : POKE54272+ 
I , 14: FOR J  =  1 TOI 00: NEXT: NEXT:  RETURN 
970  F'R I NT " DRITTE  RUNDEMfM" 

980  PRINTRZ"  RICHTIGE  "FZ"  FALSCHE  Jlf L1" 
990  PR INT "UND  JETZT  GEHT ' S  DURCHEINANDER 


■FZ+RZ"  HABEN 


un  dlü;  ' 


1 000  FOR I = 1 984TO2023 : POKE 1,160: P0KE54272 
+1 , 1 4: FORJ=l TO 100: NEXT: NEXT: RETURN 
1010  PR  I  NT  "  LLLLtSO  ,  DAS  DUERFTE  GENUEGEN! 

laaü" 

1020  PR INT "WIEDERHOLEN  SIE  DIESE  VOKABEL 
N  nur 

1030  PRINT"  IN  CA  3-4  WOCHENUBL1)" 

1040  PRINTN*"  VERABSCHIEDET  SICH  ! 

1050  FORI=1TO4000: NEXT: RUN 

1060  PR  INT  "Li" 

1070  F0RI=1T02 

1080  PRINT"  r - - - - - -s  " 

1090  FORJ= 1 T03 

1100  PRINT"  |  ! " 

1110  NEXT 

1120  PRINT"  w -  - *  " 

1130  NEXT 

1140  PR  I  NT  :  PR  I  NTTAB  ( 6 )  "  /— — - ^  " 

1150  PRINTTAB (6) " i  1 " 

1 160  PRINTTAB  (6)  "  *- - - J  " 
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1170  P0KE214,21 : PRINT : PRINT" 


64GR 


1180  PRINT"  **************************** 
**********" 

1190  P0KE214,1: PRINT 

1200  FGRI  =  1T016:  PRINTTAB  <22)  "ia"  IUI" 

I  " 

1210  NEXT 

1220  PRINTTAB  (21  )  "Ul - " 

1230  PRINTTAB  (26-LEN  (Nf) /2)  "Ul  ";:F0RI=1T 
□  10: PR I NTM I Df  (Nf , I , 1) ; : NEXT: PR INT "ß  " 
1240  PQKE2 14,2: PR I NT 

1250  F0RI=1TG7 : PRINTTAB (24) Rf(I) ; TAB (29) 

Ff (I) : PRINT: NEXT 

1260  P0KE2 14,5: PR I NT 

1270  PRINTTAB  (33)  "Ul  NOTE  " 

1280  PRINT:  PRINTTAB  (33)  "  / - , 

1290  F0RI=1T03: PRINTTAB (33) " |  |":NEXT 

1300  PR  I NTT AB  ( 33 )  "  ' - * 

1310  RETURN 

1 320  PR  I  NT "  LÜULUII1JIIJ"  ;  :  PGKE3276B ,  76 
1330  OPEN 1,1,0," VOKABELN" 

1340  INPUT# 1 ,Ni 
1350  FGRI=1TG50 
1360  I  NF’UT #  1  ,  Vf  (1,1) 

1370  INPUT# 1 , Vf (1,2) 

1380  I NPUT #l,Vf(I,3) 

1390  INPUT#l,Vf (1,4) 

1400  PRINTI : NEXT 
1410  CLOSEI 
1420  RETURN 

1430  SYS32768: PRINT" L" 

1440  INPUT "NAME  DES  PROGRAMMS 

.iiiiBiaiiiaiar ;  NT: print 
1450  Nf=LEFTf (Nf , 10) 

1460  PRINT "L'I'liHIIHi  "Nf"  [>H]" 

1 470  OPEN 1,1,1," VOKABELN " 

1480  PRINT#l,Nf 
1490  FORI=1TO50 
1500  PR I NT # 1 , Vf ( I ,1) 

1510  FRINT#l,Vf (1,2) 

1520  PRINTttl , Vf (1,3) 

1530  PRINT#l,Vf (1,4) 

1540  NEXT 
1550  CLOSEI 
1560  RETURN 

1570  REM 

1580  F0RI=1T07 : READJf ,Kf : Rf ( I ) =Jf : Ff ( I ) = 
Kf : NEXT 

1590  FOR I=0TO9 : READJ : N ( I ) =J : NEXT 
1600  F0RI=1T03: READJ : F ( I ) =J : NEXT 
1610  F0RI=1T03: READJ : R ( I ) =J : NEXT 
1620  RETURN 
1630  FQRI=1TO50 
1640  PRINT"L" 

1650  PRINT:  PRINTTAB (5) "ü  EINGEBEN  NEUER 
VOKABELN  !  "I"||  " 

1660  P0KE214, 4: PRINT: PRINT 
1670  INPUT "VOKABEL  : " ; Vf ( I , 1 ) 

1680  IFVf (1,1)=" "THENGOSUB1890: RETURN 
1690  IFLEN ( Vf ( I , 1 ) ) >15THEN1660 
1700  F0RJ=2T04 
1710  P0KE2 14, 2+3* J: PRINT 


1720  INFUT "BEDEUTUNG  :";Vf(I,J> 

1730  I FVf ( I , J ) = " " THENVf (I , J ) =" * " 

1740  IFLEN (Vf ( I , J) ) >15THEN1710 
1750  NEXT: NEXT 
1760  RETURN 
1770  FDRI=1TO50 

1780  PRINT"L":  PRINT:  PRINTTAB  (5)  "ß  VERBES 
SERN  VON  VOKABELN  !  " I "H  " 


1790  PRINT:  PR  INT"  (  UIN-EXT  OR  Ul 

C*ORRECT  ) 

1 800  P0KE2 1 4 , 6 : PR I NT : PR I NTTAB ( 1 0 ) Vf ( I , 1 ) 

1810  GETAf : IFAf=" "THEN1810 

1820  IFAf ="N"THENNEXT : RETURN 

1830  IFAf  <  >"C"THEN1810 

1840  P0KE2 14,11: PR I NT 

1850  FQRJ=1TC4: PRINTVf ( I ,  J) , : INPUT"V: 

Vf ( I , J ) 

1860  NEXT: NEXT 
1870  RETURN 
1880  RETURN 

1390  PRINT"kiflflfl  A  LITTLE  MOMENT,  PL 

EASE  ! • 

1 900  FORK= I TO50 : FOR J= 1 T04 : Vf ( K , J ) = " * ’ 

XT: NEXT: RETURN 

1910  DAT  AR ,F,I,A,C,L,H,S,T,C,I,H,G,* 

1920  DATA3 ,7,9, 13, 17,19,21,47,41,37 
1930  DATA121 ,248,160,121,248,160 
1940  PRINT"Eri»I»I«”' 

1950  PRINT"  PRESS  r- - - - — - - 


NE 


1960  FOR 1  =  1 TOI : 
1970  PRINT" 

I 

1980  NEXT 
1990  PRINT" 


I  ! 


2000  P0KE2 1 4 , 5 : PR I NT 

2010  PRINTTAB (8) "Y" TAB (13) "TO  START" 

2020  PRINTTAB (8) "lÜÜC" TAB (13) "TO  CORRECT" 
2030  PR  I  NTTAB  ( B )  "I»1»1S  »  TAB  ( 1 3 )  "  TO  SAVE  THE 
WQRDS" 

2040  PRINTTAB  (8)  "UU-',TAB  (13)  "TO  LOAD  IN 
NEU  lv'2'vDS" 

2050  RETURN 
2060  PRINT"L1;U.!" 

2070  Vf=" COPYRIGHT  BY  MICHAEL  SCHMIDT  : " 
2080  PRINTTAB (4) ; : FOR 1=1 TOLEN ( Vf ) 

2090  PR I NTM I Df (Vf , I ,1) ;  : FORJ  =  1TO100: NEXT 

: NEXT: PRINT 

2100  FOR 1=1 TO500: NEXT 

2110  PRINT"&  r- - ,  " 

2120  PRINT"  {  J " 

2130  PRINT"  rs  i  r-> 


2140  PRINT"  ^  S  I  rs  rs  t— * 

' — *  r — ^  r*  S  "  ; 

2150  PRINT"  S  r*  ^ 
r\  I  I  t — '  S  r*  "  i 


2160  PRINT"  ^ 
IMS!  ^  " 
2170  PRINT" 
wl!^" 

2180  PRINT" 


2190  PRINT" 
2200  PRINT" 

R" 

2210  PRINT" 
2220  PRINT"  r 


r— -s  rs  rs  r 
I  I  I  III  rs  I  1  00  |  |  I  III  I 
III  !  III  !  II  I  I  1^1! 

I  !  w  I  I  w  I  I  I  I  '■s  r*  ! 

U  KJ  K 

I  I  " 

! !  BADISCHE  64 'E 


2230  PRINT"  ! 

2240  PRINT"  1— - — — - — - - — — 

__ — — —J  •• 

2250  FRINT"fJDD>i»i»t**»  PRESS  ANY  KEY  TO 
START  ***" 

2260  RETURN 
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Dem  Anfänger  wird  die 
Möglichkeit  geboten, 
durch  eine  Morsezeichen¬ 
übersicht  die  Morsezeichen 
zu  erlernen.  Später  kann 
man  durch  den  Programm- 
teil  »Computer  morst  Zufalls¬ 
text«  die  erworbenen  Kennt¬ 
nisse  überprüfen,  wobei  die 
Morsegeschwindigkeit  frei 
gewählt  werden  kann.  Mit  et¬ 
was  Übung  gelingt  es  schon 
recht  bald,  zumindest  bei 
niedriger  Morsegeschwin¬ 
digkeit,  die  meisten  Zeichen 
zweifelsfrei  zu  identifizieren. 
Man  kann  den  Computer 
aber  auch  dazu  bringen,  ei¬ 
nen  eingegebenen  Text  in 
Morsezeichen  zu  überset¬ 
zen,  was  ebenfalls  als  Trai¬ 
ningsmöglichkeit  genutzt 
werden  kann. 

Für  Profis  gibt  es  dann  im 
dritten  Teil  die  Möglichkeit, 
selbst  gemorsten  Text  vom 
Computer  überprüfen  zu  las¬ 
sen.  Als  Eingabetaste  dient 
entweder  »f7«  oder  der 
Feuerknopf  beim  Joystick. 

Gerade  dieser  Teil  des 
Programms  war  schwierig  zu 
realisieren,  weü  die  Verar¬ 
beitung  und  Übersetzung  in 
Basic  viel  zu  langsam  ist. 
Letztendlich  konnte  diese 
Schwierigkeit  aber  umgan¬ 
gen  werden,  indem  die  ge¬ 
morste  Zeichenfolge  nicht 
unmittelbar  ausgewertet, 
sondern  zunächst  in  einen 
freien  RAM-Bereich  zwi¬ 
schengespeichert  wird.  Erst 
nachdem  der  Morsetext  zu 
Ende  eingegeben  ist,  wird 
dieser  Speicherbereich  aus¬ 
gelesen  und  übersetzt. 

Alle  Funktionen  werden 
über  ein  Menü  angewählt, 
wodurch  das  Programm 
sehr  einfach  zu  bedienen  ist. 

(Stefan  Ingenhorst) 


READY. 

0  REM  ***************************** 

1  REM  *  * 

2  REM  *  MORSETRAINER  +  DOLMETCHER  * 

3  REM  *  C  BY  JENS  MARTENS  UND  * 

4  REM  *  STEFAN  INGENHORST  * 

5  REM  *  * 

6  REM  ***************************** 

7  REM  ******ANDROMAT  SOFTWARE****** 

S  REM  ***************************** 

9  GCSUB20000 

1 S  PQKE55 , 203 : POKE56 , 47 : CLR : MT=" "  :  FOR I =5 
4272TO54300: POKEI ,0: NEXT 

20  SEM  ******-*  ************************* 
25  REM  *  NEUE  ZEICHEN; 77— KURZ ,7B— LANG  * 
33  REM  ******************************** 
40  P0KE5A334 , PEEK ( 56334 ) AND254 : POKE 1 , PEE 
K < 1 ) AND251 

53  F0RI=3T0234S: I F I = I I THENGOSUB 1 3000 
60  POKE 1 2238+ I , PEEK (5324B+I ) : NEXT 
70  POKE 1 , PEEK ( 1 ) 0R4 : P0KE56334 . PEEK  (  56334 
)  GR  1 

80  P0KE53272, (PEEK (53272) AND240) OR 12 
90  RE ADA: IFA=-1THEN160 

103  FOR J =0TO7: READB: POKEI 2288+A*8+J ,B: NE 
XT: GOTQ90 

110  DATA  77,0,0,0,24,24,0,0,0 
120  DATA  78,0,0,0,126,126,0,0,0 
130  DATA— 1 

140  REM  *************** 

150  REM  **  SET  SOUND  ** 

155  REM  *************** 

i 60  W-54276 : P0KE54277 , 32 : POKE54278 , 242 

170  P0KE54272, 157: P0KE54273 , 69 

180  P0KE54296, 15 

190  REM  ********************** 

200  REM  **  MORSEDATEN  LESEN  ** 

201  REM  ********************** 

205  DIMM^(255) 

210  READM: IFM=-1THEN300 
220  README: M* <M) =M$: G0T02 10 

290  REM  *********** 

291  REM  **  MENUE  ** 

292  REM  *********** 

300  PR  INT" Li" TAB<1 3)  "E3!ld*  MENUE  *■" 
320  PRINT"Hfl«M?Wai»  COMPUTER  MORST  ZUFA 
LL3TEXT" 

330  PRINT"[ÜL!!jJ2»  COMPUTER  MORST  EINGEGE 
DENEN  TEXT” 
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340  PRINT“LrI'9»iN3«  COMPUTER  EMPFAENGT" 

350  PR I NT "L'ltlllfltf  MORSEZEICHEN  AUFLISTEN 

II 

360  PRINT,,ÜJ!!!ia55  PROGRAMM  BEENDEN" 

370  INPUT "taiÜMJBITTE  WAEHLEN  ";M:IFM<10R 
M>5THEN300 

380  ONMGOTO 1 000 , 2000 , 3000 , 4000 , 5000 

990  REM  *************************** 

991  REM  **  ZUFALLSTEXTGENERATION  ** 

992  REM  *************************** 

1000  PR I NT " LLÜÜIIÜULIB I TTE  GESCHWINDIGKEIT 
WAEHLEN" 

1010  INFUT" [?>>!<  IN  WORTEN  PRO  MINUTE)  ”  ;  G 
1020  M$=" ":FORI=1TO40:M*=M*+"  " :FORJ=1TO 
5 

1030  A=INT (65*RND ( 1 ) )+34: IFM$ ( A) =" "THEN1 
030 

1040  MT=M*+CHR*(A) :NEXTJ, I 
1050  PR INT SPRINT SPRINT 

1 060  FORM= 1 T0252STEP36 : PR I NTM I D* ( MT , M , 36 
) sNEXT 

1070  GOTO2500 

1997  REM  ****************** 

199S  REM  **  EIGENER  TEXT  ** 

1999  REM  ****************** 

2000  PR  INT"  »BITTE  TEXT  EINGEBEN  !" 

2020  PRINT-aUJUWENN  FERTIG,  'Fl'  DRUECKE 
N  .  " 

2030  M$=" " 

2040  SETZ*: IFZ*=" "THEN2040 

2050  I F ASC ( Z*  >  = 1 33THEN2 1 00 

2068  IFASC ( Z*>  =20THENM*=LEFT* (M* , LEN (M*) 

-1) : GOTO28S0 

2065  IFM* (ASC ( Z*> ) =" "THEN2040 
2070  M*=M*+Z*s IFLEN (M* ) >254THEN2180 
2080  PR  I  NT  "  i  I"  M* »  " 

2090  GOTO2040 

2100  PRINT‘*B"  : FORK=lT08: PRINTCHR* (17) : NE 
XTsPRINT-PirTTEXT  UEBERNOMMEN  . E" 

2110  PR I NT " ÜSmWELCHE  GESCHWINDIGKEIT" 
2120  INPUT"ta*J(IN  WORTEN/MINUTE)  mjHIII" 
;G 

2497  REM  ***************** 

2498  REM  **  UEBERSETZEN  ** 

2499  REM  ***************** 

2500  G=20/G*46 

2510  FORI=lTOLEN (MT) : A=ASC ( M I DT ( MT ,1,1) ) 
2515  IFA=32THENGOTO2900 

2520  F3RJ=1T0LEN(M* (A) ) :  B=ASC  (MID*  (M*  (A) 

,J,D) 

2530  IFB=205THENGOSUB2700 
2540  I FB=206THENGOSUB2800 
2550  NEXTJ : FORK=lTOG: NEXTK 
2560  NEXTI 

2565  PR  I  NT 11  [.'ff  EI  TTE  TASTE  DRUECKEN  " 

2570  POKE 1 98 , 0 : WA I T 1 98 , 1 : POKE 198,0: G0T03 
08 

2700  POKEW , 33: FORK=l TOG: NEXT : POKEW , 32: FO 
RK=1T0G: NEXT: RETURN 

2800  POKEW , 33 : FORK= 1 T03*G : NEXT : POKEW , 32 : 

FGRK= 1 TOG : NEXT : RETURN 

2900  F0RK=1T03*G: NEXT: GOTO2560 

2997  REM  ************************** 

2998  REM  *  MORSEZE I CHEN  EMPFANGEN  * 

2999  REM  ************************** 


3000  PRINT"L^GEBEN  SIE  JETZT  IHRE  MORSE¬ 
ZEICHEN  UEBERLÜDIE  TASTE  'F7'  EIN  !" 

3005  PRINT"LÜWENN  FERTIG,  CA.  5  SEC  WARTE 
N  UND  D ANACHL'JT ASTE  ERNEUT  DRUECKEN" 

3030  PRINT"L'ILU:tIALLES  R0GER5E  ES  KANN  JET 
ZT  LOSGEHEN  ! " 

3100  W=54276: 1=49152 
3110  POKE 1 98 , 0 : WA I T 1 98 , 1 : POKE 1 98 , 0 
3120  I FPEEK ( 203 ) <  >64THEN3200 
3160  POKEW, 32: SYS65499 
3170  I FPEEK (203) =64THEN3 170 
'  3180  GOTO3330 
3200  POKEW , 33 : SYS65499 
3210  I  FPEEK  (203)  064THEN32 10 
3330  I FT I >255THEN3500 
3340  POKEI, TI: 1=1+1 : G0T03 120 
3497  REM  ******************** 

3490  REM  *  MORSE-AUSWERTUNG  * 

3499  REM  ******************** 

3500  PRINT"L'L«ES  FOLGT  DIE  AUSWERTUNG" :  PR 
INT"L!i:":M=0:M$="  " 

3510  FORI I=49152TOI— 1 : M=M+PEEK (II): NEXT 
3520  M=M/ (1-49152) 

3530  FOR I I =49 1 52T0 I - 1 : N=PEEK (II) 

3540  I FN >MAND ( 1 1 /2< > I NT ( 1 1 /2 ) ) THENG0SUB3 
600: M*=" " 

3550  IFNCMAND ( I I /2=INT ( I 1/2) ) THENM*=M*+C 
HR* (205) 

3560  IFN>MAND ( I 1/2= INT ( I 1/2) ) THENM*=M*+C 
'  HR* (21 6) 

3570  NEXT : GOSUB3608 

3580  F’R  I  NT  s  PR  I  NT  "  I  TTE  TASTE  DRUECKEN 

3590  POKE 1 98 , 0 : WA I T 1 98 , 1 : POKE 198,0: G0T03 
00 

3600  FORJ=32TO90 

3610  I FM*=M* ( J ) THENPR I NTCHR* ( J ) ; 

3620  NEXT 

3630  I FN  >M*3THENPR I NTCHR* ( 32 ) ; 

3640  RETURN 

I  3997  REM  ****************** 

3998  REM  *  ZEICHENTABELLE  * 

3999  REM  ****************** 

4000  M=0:  N=0:  PR  INT  "Lj"  :  FOR  1  =  1  TOI  00:  IFM*(I 
)=" "THEN4100 

4010  M*=M* ( I ) : I F I =32THEN4 1 00 
4020  PRINTTAB (M*15) CHR*(I > "  =  "M*:N=N+1: 
I  FN=  1  9THENPR I  NT  ••  ö"  :  N=0 :  M=M+ 1 
4100  NEXT 

4200  PR I NT " : FORK= 1 TO 1 1 : PR I NTCHR* (17) 
: NEXT SPRINT "BI TTE  TASTE  DRUECKEN" 

4300  POKE 1 98 , 0 : W A I T 1 98 , 1 : POKE 198,0: G0T03 
00 

4997  REM  ********** 

4998  REM  *  ABGANG  * 

4999  REM  ********** 

5000  PR  I  NT  "L"  SRC  (11)  "  L'LL'DOK  T  DAS  WAR'S" 
5010  F0RI=1 TO2000: NEXT : SYS64738 

9998  REM  ************** 

1 0000  P0KE2 1 4 , 22 : PR I NT : P0KE2 11,11/100 
10010  PRINT"  L&2  BITTE  WARTEN  !E" 

10015  11=11+100 
10020  RETURN 

19997  REM  ************* 

19998  REM  *  TITELBILD  * 
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19999  REM  ************* 

30  1  00  DATA44  ,  "//W/"  ,61,"  A\V" 

20300  POKE53280 , 0 : P0KE5328 1 , 0 

30110  DATA63,  "\\/'/\\"  ,65,  "V" 

20010  PR INT" LS" SRC (7) "C  0"SPC (20) "T&T 

30120  DATA66,  "/NW"  ,67,  "AA" 

WZ" 

30130  DATA68 , "/\\" , 69 , "\" 

20020  PRINTSPC  (8)  "V  «■  "SPC  ( 1 9)  "T&W  ■TS" 

30140  DATA70,  "\W  ,71  ,  "//\" 

20030  PRINTSPC  <9>  "V"SPC(  19)  "T&W  WZ“ 

30150  DATA72 , "\\\\" , 58 , "///\\\" 

20040  PRINTSPC  (8)  "  T’SPC  ( 13)  ■ 

30160  DATA73, "\\" ,74, "  V//" 

TZ" 

30170  DATA75,  "/V"  ,76,"\/\\" 

20053  PRINTSPC  (7)  "  ©■  ",  ,"SPC  ( 12)  "Q3T 

30180  DATA77 , "//" , 78 , 

WZ" 

30190  DATA79,"///"  ,80,  "VW 

20060  PRINTSPC  ( 12)  "\  ."SPC  (14)  ura:W  WZ" 

30200  D AT A8 1  ,  "  //V”  ,  82 ,  " \A  " 

20070  PRINTSPC  ( 13)  "V  ,"SPC  ( 13)  "QLT’  WZ" 

30210  DATA83, "\\\" , S4 , " /" 

200B0  PRINTSPC  (14)  "V  "SPC  ( 1  1  )  "&3W  WZ" 

30220  DATA85 ,  "\V"  ,  86  ,  "WV" 

20090  PRINTSPC  (10)  "SPC  (11)  "gj 

30230  DATA87 ,  "  V/"  ,  88  ,  "  AV" 

W" 

30240  DATA89 , "/%//" ,90," //SV , - 1 

20 1 00  PR  I NTSPC  ( 27 )  " m  W" 

35000  REM  *************************** 

20110  PRINTSPC  (1  1)  "GitliliDRSEZEICHEN" 

35010  REM  SYS  65499  <  =  >  TI $-"000000" 

20120  PRINTSPC  (7)  "IlÜ-I^C-  BY  JENS  MARTENS 

35020  REM  SYS  64738  <=>  SYSTEM  RESET 

UND":  PRINTTAB  (14)  "LüJSTEFAN  INGENHORST  " 

35030  REM  *************************** 

20130  PRINTl,m>L<»»»l:4A  NDROMAT-R 

35040  REM  VARIABLENTABELLE 

□  F  T  W  A  R  ET" 

35050  REM  *************************** 

20140  RETURN 

35060  REM  M$(X)  <=>  MORSEZEICHEN  ZU  X 

29997  REM  ******************** 

35273  REM  G  <=>  MORSEGESCHWINDIGKEIT 

29998  REM  **  MORSE-ALPHABET  ** 

35080  REM  M$,Z$  <=>  HILFS-STRING 

29999  REM  ********************** 

3509S  REM  W  <  =  >S I : VO I CE  I:  WAVEFORM 

30000  DATA32,"  " 

35100  REM  A , B , I , I I , K  <=>  HILFSZAEHLER 

30010  DAT A34 ,  "  N/W/\"  ,  39 ,  "  \y// /\" 

35110  REM  TI  <=>  TIMER  IN  SEC/ 63 

30020  DATA40, u/\//\" ,41 , n /\//\/n 

35120  REM  **************************** 

30030  DATA43 , "\/\/\" ,  45 , "  /WW/" 

35130  REM  ABSPEICHERUNG  DER  TIMERWERTE 

30040  DATA46, "\/\/\/" ,47, "/W/V 

35140  REM  ZUM  ENTSCHLUESSELN  DER  MOPSE 

30050  DATA48  ,  "/////"  ,  49 ,  "VW/" 

35150  REM  ZEICHEN  AB  49152  (DEZ.) 

30060  DATA50,  "\V//"  ,  51,"  \W/"  s  3r 

3Si.60  REM  **************************** 

30070  DATA52 ,  ,  53 ,  " \\\\\" 

35170  REM  NEUER  ZEICHENSATZ  AB  12228 

30030  D AT A5 4 , " /\\\\ " ,55, " //\\\ " 

35180  REM  **************************** 

30090  D AT A56  ,  " ///\\"  ,57,  " ///A" 

READY. 
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VC  20  +  8  KByte 


»Movemaster«  wurde  für  die  Erstellung 
beweglicher  Grafiken  konzipiert  und 
läuft  mit  mindestens  8  KByte  Speicher¬ 
erweiterung.  Das  Programm  verwaltet 
bis  zu  47  kleine  Bilder,  die  man  beliebig 
untereinander  mischen,  kopieren,  spei¬ 
chern,  laden  und  schließlich  der  Reihe 
nach,  mit  wählbarer  Geschwindigkeit, 
im  Bildschirm  einblenden  kann.  Dies  er¬ 
gibt  schließlich  den  Zeichentrickeffekt. 


<  IN/OU  T  > 


;ben 


CHERN 


IRN 

sie;  einen 


S  "-SAVE 


BEFEHL 


Bild  1.  Das  Movemaster-Hauptmenü 


Lader  mit  NEW  gelöscht 
werden.  Bei  richtiger  Einga¬ 
be  beinhalten  die  Speicher¬ 
zellen  45  und  46  die  Zahlen  1 
68  und  27  (dezimal).  Ist  das  , 
nicht  der  Fall,  so  gibt  es  noch 


Zeichnungen  können  mit 
Joystick  oder  Tastatur  in 
die  Bilder  eingebracht  wer¬ 
den.  Es  ist  auch  möglich,  die 
Lage  der  Bilder  im  Verhält¬ 
nis  zum  Bildrahmen  zu  ver¬ 
ändern,  was  die  Entwick¬ 
lung  von  Laufschrift  oder 
ähnliche  Anwendungen  er¬ 
heblich  erleichtert.  Das  Pro¬ 
gramm  »Movemaster«  ent¬ 
hält  Maschinencode-Routi¬ 
nen,  die  Aufgaben  überneh¬ 
men,  deren  Ausführungszeit 
von  Bedeutung  ist  (zum  Bei¬ 
spiel  Grafikausgabe).  Au¬ 
ßerdem  nehmen  diese  Ma¬ 
schinencode-Routinen  ent¬ 
scheidend  weniger  Spei¬ 
cherplatzein  als  gleichwerti¬ 
ge  Basic-Routinen.  Die  SYS- 
Adressen  der  einzelnen 
Routinen  gehen  aus  Tabelle 
2  hervor. 


Programmeingabe 


Zuerst  wird  der  Lader  (Li- 
sting  1)  eingetippt  und  si¬ 
cherheitshalber  abgespei¬ 
chert.  Eine  kurze  Zeit  nach 
dem  Starten  des  Laders  er¬ 
scheint  auf  dem  Bildschirm: 
»FEHLERLOS«  oder  »TIPP¬ 
FEHLER«.  Im  zweiten  Fall 
müssen  sowohl  die  DATA- 
Zeilen  als  auch  der  Lader 
überprüft  und  verbessert 
werden.  Erst  bei  der  Anzei¬ 
ge  »FEHLERLOS«  darf  der 


einen  (oder  mehrere)  Tipp¬ 
fehler,  die  bereinigt  werden 
müssen.  Das  ganze  Pro¬ 
gramm  muß  exakt  übernom¬ 
men  werden  —  kein  Zeichen 
mehr  oder  weniger. 

Damit  »Movemaster«  zu¬ 
sammen  mit  den  Maschinen¬ 
code-Routinen  abgespei¬ 
chert  werden  kann,  müssen 
davor  die  Speicherzellen  45 
und  46  auf  0  und  30  geändert 
werden.  Das  hat  den  Vorteil, 
daß  der  Lader  nicht  mehr 
benötigt  wird. 


Programm¬ 

bedienung 

Nach  dem  Starten  des  Pro¬ 
gramms  erscheint  auf  dem 
blauen  Bildschirm  das  Haupt¬ 
menü.  Es  stehen  jetzt  folgen¬ 
de  Befehle  zur  Verfügung: 

N  —  Wählen  der  Bildnum¬ 
mer  (von  1  bis  47  Bil¬ 
dern  bei  24  KByte 
Speichererweiterung) 
oder  Information  über 
die  momentane  Bild¬ 
nummer 


Q  —  Löschen  eines  Bildes 


oder  des  Arbeitsspei¬ 
chers 


—  Ein  Bild  in  den  Ar¬ 
beitsspeicher  übertra¬ 
gen  und  mit  dem  In¬ 
halt  mischen 


O  —  Den  Arbeitsspeicher 
in  ein  Bild  übertragen 
und  überschreiben 


K  —  Ein  Bild  in  ein  anderes 
kopieren 


Z  —  Bilder  mit  dem  Joy¬ 
stick  oder  der  Tastatur 
in  den  Arbeitsspeicher 
einzeichnen 


V  —  Den  Inhalt  des  Ar¬ 
beitsspeichers  mit 
dem  Joystick  oder  der 
Tastatur  verschieben 


B  —  Den  Inhalt  des  Ar¬ 
beitsspeichers  in  das 
momentane  Bild  über¬ 
schreiben  und  die  mo¬ 
mentane  Bildnummer 
um  eins  erhöhen 


T  —  Eine  Bildfolge  nach¬ 
einander  abrufen  und 
im  Bildschirm  einblen¬ 
den 


L  —  Eine  Bildfolge  vom 
Band  lesen 


S  —  Eine  Bildfolge  auf 
Band  speichern 

R  —  Rückkehr  in  das 
Hauptmenü 


Zum  Zeichnen  wird,  wie 
schon  erwähnt,  der  Joystick 
oder  die  Tastatur  eingesetzt: 
Punkt  links  —  1  bzw.  Hebel 
links 

Punkt  hoch  —  3  bzw.  Hebel 
hoch 

Punkt  runter  —  5  bzw.  Hebel 
runter 

Punkt  rechts  —  7  bzw.  Hebel 
rechts 

Punkt  löschen  —  SHIFT 
bzw.  Feuerknopf 


Beispiele  zur 
Programm¬ 
bedienung 


▼  Ein  Rechteck  soll  ins  Bild 
Nummer  1  eingezeichnet 
werden.  Zuerst  wird  der  Be¬ 
fehl  N  eingegeben,  dem  ei¬ 
ne  Frage  »BILDNUMMER?« 
folgt,  die  mit  1  beantwortet 
wird.  Mit  der  Eingabe  von  Z 
wird  in  den  Grafikmodus 
umgeschaltet.  Der  Bild¬ 
schirm  wird  schwarz.  Die 
momentane  Position  ist  in  der 
Mitte  des  Bildschirms.  Jetzt 
kann  gezeichnet  werden.  Ist 
das  Bild  fertig,  so  wird  es  mit 
B  abgespeichert.  R  führt  zur 
Rückkehr  zum  Hauptmenü. 

▼  Das  Rechteck  aus  Bild 
Nummer  1  soll  in  Bild  Num¬ 
mer  2  etwas  höher  liegen. 
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Mit  7.  wird  wieder  in  den 
Grafikmodus  umgeschaltet. 
Im  Arbeitsspeicher  befindet 
sich  noch  das  Rechteck,  und 
es  wäre  unklug,  es  mit  Q  zu 
löschen,  da  es  ja  den  Befehl 
V  zur  Verschiebung  gibt. 
Nach  der  Eingabe  von  V 
blinken  die  Begrenzungs¬ 
punkte,  und  das  Rechteck 
kann  verschoben  werden. 
Vor  dem  Abspeichern  mit  B 
wird  mit  Z  die  Verschiebung 
unterbrochen.  Die  Eingabe 
von  N  führt  zur  Information 
über  die  momentane  Bild¬ 
nummer.  Mit  R  wird  die 
Grafik-Routine  verlassen. 


Speich°rbe,egung 


Von  »Movema 


▼  Die  Bilder  Nummer  1  und 
Nummer  2  sollen  miteinan¬ 
der  gemischt  und  als  Bild 
Nummer  3  abgespeichert 
werden.  Im  Arbeitsspeicher 
befindet  sich  noch  das 
Rechteck  Nummer  2  also 
reicht  der  Befehl  I  und  1 
schon  aus,  um  die  Bilder  zu 
mischen.  Mit  O  und  3  wird 
der  Arbeitsspeicher  ins  Bild 
Nummer  3  kopiert. 

▼Bild  Nummer  2  soll  in  Bild 
Nummer  4  kopiert  werden. 


Dazu  wird  der  Befehl  K  be¬ 
nutzt.  Die  erste  Zahl,  die  ein¬ 
gegeben  wird,  ist  logischer¬ 
weise  2  gefolgt  von  einer  4. 


▼Die  eben  gezeichneten  Bil¬ 
der  sollen  der  Reihe  nach  in 
den  Bildschirm  eingeblen¬ 
detwerden.  Nach  der  Einga¬ 
be  von  T  wird  die  Anzahl  der 
Bilder  angegeben,  die  proji¬ 


ziert  werden  sollen,  in  die¬ 
sem  Falle  also  4.  Die  Werte 
für  die  Verzögerung  sollten 
zwischen  0  und  200  liegen, 
da  sonst  die  Pausen  zwi¬ 
schen  den  einzelnen  Bildern 
zu  lang  werden  und  somit 
der  Zeichentrickeffekt  nicht 
erzielt  wird.  Mit  R  wird  die 
Projektion  unterbrochen. 

(Artur  Wystub) 
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Solche  Bilder 
lassen  sich  mit 
Movemaster  per 
Joystick  erzeugen 
und  zum  Leben 
erwecken 


I 


HEX 

DEZ 

1C1D 

7197 

Begrenzungspunkte  löschen 

1C3E 

7230 

Begrenzungspunkte  setzen 

1C4F 

7247 

Bild  nach  oben  verschieben 

1C81 

7297 

Bild  nach  unten  verschieben 

1CB1 

7345 

Bild  nach  rechts  verschieben 

1D08 

7432 

Bild  nach  links  verschieben 

1D5F 

7519 

Bild  in  Arbeitsspeicher  kopieren 

1D7E 

7550 

Ärbeitssspeicher  ins  Bild  kopieren 

1D9D 

7581 

Grafikmodus  setzten 

1DB9 

7609 

Arbeitsspeicher  löschen 

1DD8 

7640 

Bild  mit  Arbeitsspeicher  mischen 

Adressen  der  Maschinencode-Routinen 


Variablenliste 


A$ 

Befehlsvariable 

NÄ$ 

— 

Bildfolgename 

BZ 

— 

Höchstmögliche  Bildnummer 

BM 

— 

Momentane  Bildnummer 

BO 

— 

Gewählte  Bilderzahl 

GG 

— 

Verzögerungsvariable 

Z 

— 

VIC-C-Basicadresse  (36864) 

X 

— 

Horizontale  Position  auf  dem  Grafikbildschirm 

Y 

— 

Vertikale  Position  auf  dem  Grafikbildschirm 

P 

— 

Adresse  der  durch  (X,Y)  Position  ermittelten  Zelle 

W 

— 

Wert  dieser  Zelle 

V 

— 

Modusvariable  (V=0  zeichnen,  V=1  verschieben) 

T 

— 

Laufvariable  in  allen  Schleifen 

10  REM##*LORDER### 

20  FORT =7 1 97T07672 
30  RERD  R$ 

40  H=RSC<MID$<fl$, 1. l)>-48 

50  L=R3C  <  M I D$  <  R$ , 2 , 1 ) )  -48 

60  IFH>9THENH=H-7 

70  I FL>9THENL=L-7 

80  POKET  ,  H#  1 6+L  :  Z=Z+H# 1 6+L 

90  HEXT :  I F20  49265THENPR I NT ” T I PPFEHLER"  :  END 

95  PR I NT " FEHLERLOS " : END 

100  DRTRR9 , 7F , 2D , 00 , 1E,3D,00, IE, R9i 7F, 2D, 47,  1E,8D,47,  1E,R9,FE,2D 
110  DRTRB0, 1F,8D,B0, 1F,  R5, FE, 2D, F7, 1F,8D,F7, 1F, 60, R9, 80, 8B, 00, IE 
120  DRTR8D, 47, IE, R9, 01 , 8D, BO, 1F,8D,F7, 1F, 60, R2, Ol , BD, 01 , IE, 9D, m 
130  DRTR1E, BD, 49, 1E,9D,48, 1E,BD,91, 1E,9D,90, 1E,BD,D9, 1E,9D,D8, IE 
140  DRTRBD ,21, 1 F , 9D , 20 , 1 F , BD , 69 , 1F,9D,68, 1F, BD, Bl , 1F, 9D, BO, 1F, ES 
150  DRTRE0, 47,  D0,  Dl , 60,  R2, 45, BD, 00,  IE, 9D, 01 ,  IE, BD,  48,  1E,9D,49,  IE 
160  DRTRBD,  90,  IE,  9D,  91 ,  IE,  BD,  D8,  IE,  9D,  D9,  IE,  ED,  20, 1F,  9D,  21 , 1 F ,  BD 
170  DRTR68, 1F,9D,69, 1F,BD,B0, 1F, 9D, Bl , 1F, CR, 10,D3,60,R0,7F,R9,00 
180  DRTRR2,00,5E,B0, 1F,5E,68, 1F, 90, 07, 98, 7D, BÖ, 1F,9D,B0, 1F,5E,20 
190  DRTR 1 F , 90 , 07 , 98 , 7D , 68 , 1F,9D,63, 1F,5E,D8, IE, 90, 07, 98, 7D, 20, 1F 
200  DRTR9D, 20, 1F,5E,90, 1E,90,07,98,7D,D8, 1E,9D,D8, 1E,5E,43, 1E,90 
210  DRTR07 , 98, 7D, 90, 1E,9D,90, 1E,5E,O0, IE, 90, 07, 98, 7D, 48, 1E,9D,48 
220  DRTR1E,E8,E0,47,D0,B0,60,R0,00,R9,00,R2,00, 1E,O0, IE, 1E,48, IE 
230  DRTR90,07,98,7D,00, 1E,9D,00, IE, 1E,9Q, IE, 90, 07, 98, 7D, 48, 1E,9D 
240  DRTR48, IE, 1E,D8, IE, 90, 07, 98, 7D, 90, 1E,9D,90, IE, 1E,20, 1F,9O,07 
250  DRTR98, 7D, D8, 1E,9D,D8, IE, 1E,68, 1F, 90, 07, 98, 7D, 20, 1F,9D,20, 1F 
260  DRTR1E,  B0, 1F,  90, 07,  98,  7D,  68, 1F,9D,68,  1F,  E8,  EO,  47,  D0,  B0, 60,  R9 
270  DRTR00 , 85 , 03 , R9, 1 E , 85 , 04 , R0 , 00 , B 1 , 0 1 , 9 1 , 03 , E6 , 0 1 , E6 , 03 , D@ , F6 
230  DRTRE6 , 02 , E6 , 04 , R9 , 20 , C5 , 04 , D0 , EC , 60 , R9 , 00 , 85 , 03 , R9 ,  1 E ,  85 , 04 
290  DRTRR0, 00, Bl , 03,91 , 01 , E6, 01 , E6, 03, D0, F6, E6, 02, E6, 04, R9, 26, C5 
300  DRTR04 , D0 , EC , 60 , R2 , 00 , R9 , 40 , R0 , 00 , 9D , 00 , 1 0 , 1 8 , 69 , 09 , E8 , C3 , C0 
3 1 0  DRTR07 , D0 , F4 , R0 , 00 , 38 , E9 , 3E , C9 , 49 , D0 , EB , 60 , 89 , 00 , 85 , 03 , 89 , 1 E 
320  DRTR85 , 04 , R9 , 00 , R0 , 00 , 9 1 , 03 , E6 , 0 1 , E6 , 03 , DO , F3 , E6 , 02 , E6 , 04 , 89 
330  DRTR20 , C5 , 04 , D0 , ER , 60 , 89 , 00 , 85 , 03 , 89 , 1 E ,  85 ,04,80 , 00 , B 1 , 0 1 ,  1 1 
340  DRTR03 , 9 1 , 03, E6 , 0 1 , E6 , 03 , D0 , F4 , E6 , 02 , E6 , 84,89, 28 , C5 , 04 , D8 , ER 
350  DRTR60 

RERDV. 
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Bild  1.  So  übersichtlich  erscheint  die 
Darstellung  eines  Balkendiagramms 
auf  dem  Bildschirm 


Darstellungsformen  ist 
Hardcopy  des 
Bildschirminhalts 
auf  einem  Epson 
RX-80-Drucker 
erstellen  lassen. 


Übersichtliche  Grafik  statt  endloser 
Zahlenkolonnen  —  dieses  Programm  für 
den  Commodoie  64  mit  Simons  Basic 
kann  Tabellen  wahlweise  als  Balken-, 
Kurven-  oder  konventionelle  Strichdiagramme  darstellen. 
Die  laufende  Umschaltung  zwischen  den  verschiedenen 
möglich.  Auf  Tastendruck  kann  man  sich  jederzeit  eine 


J 


Nach  dem  Start  meldet  sich 
das  Programm  mit  dem 
Titel  »Chart  1  —  Programm 
zur  grafischen  Zahlendar¬ 
stellung«.  Dieser  Titel  er¬ 
scheint  etwa  drei  Sekunden. 
Durch  Drücken  der  Return- 
Taste  wird  vorzeitig  zum 
Hauptmenü  gesprungen.  Bei 
der  Hauptmenüabfrage  ak¬ 
zeptiert  das  Programm  nur 
Zahlen  von  1  bis  4  und  den 
Buchstaben  E. 


Vom  Hauptmenü 
aus  sind  alle  Funk¬ 
tionen  abrufbar 

Zunächst  zur  Funktion  4. 
Durch  diese  Funktion  wird 
die  letzte  im  Speicher  be¬ 
findliche  Grafik  dargestellt. 
Falls  sich  auch  noch  die  Wer¬ 
te  im  Hauptspeicher  befin¬ 
den,  kann  von  dieser  Grafik 
ausgehend  das  Programm 
durch  Antippen  des  entspre¬ 
chenden  Buchstabens  fort¬ 
gesetzt  werden.  Falls  die  Ab¬ 
solutsumme  (MC)  Null  ist, 
geht  das  Programm  davon 
aus,  daß  keine  Werte  mehr 
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35  REM******************************* 

40  REM*#**  CHART  1  **************** 

70  REM******************************* 

75  PÜKE53280 ,10: P0KE5328 1 , 1 2  =  PR I MT "fl" 

80  D I MX < 22), fl ( 22 > , B C 22 > , C ( 22), F < 22 ) 

100  PR  I  NT  "  3"  FIT  <  12,8  )  "  >»  CHART  1  <«" 

130  PRINTflT (7,11)  "PROGRAMM  ZUR  GRAPHISCHEN" 

1 60  PR I NT AT ( 11,13 > " ZAHLENDARSTELLUNG " 

170  PAUSE 3 

220  PRINT "DS  DARSTELLUNGSFORMEN  ■" 

250  PR  I  MTflT  <  5 , 5  >  "  KUCHENGRAPH  I K . 1 " 

280  PR  INTAT  <5, 7) "  BALKENGRAPH  I K . 2" 

3 1 Q  PR  I NTRT  ( 5 ,  9  )  "  D I AGRAMM . 3" 

320  PR I NTRT <5,11  >"LETZTE  GRAPH T K . 4 " 

340  PRINTflT <5,  15) "BITTE  WAEKL1  t  SIE  »>" 

358  PR  I  NTRT  (5,19 >  "  ENDE . E  " 

37ü  GETE$ : I FE$= " " THEN370 
375  IFE$=,,E"THENPRINT'LT  :  END 
377  I FE$= " 4 " THENGOT 0  9100 
330  I FE$< " 1 " ORE$> " 3 "THEN370 

400  PRINTflT (28, 15>E$  Listing  für  die  grafische  Darstellung  von  Zahlen 

430  E=VAL(E$> 

440  PAUSE 1 

450  GOSUB5000 

460  ONE GOTO 1 000 , 2000 , 4000 

1000  REM****************************** 

1010  REM******  KUCHEN  ********* 

102©  REM****************************** 

1 1 00  I  -360/MC :  MAX=-  1 0  T38 

1110  HIRES0, 14 

1111  LOW  COLI, 14, 14 

1112  CIRCLE 160, 110,80,40,  1 

1114  ARC 1 60 ,130, 90 ,270,5, 80 ,  40 , 1 
1116  LI NE80 ,110 , 80 ,130,1 
1118  LI HE240 , 1 1 0 , 240 , 1 30 , 1 
1120  HI  COL ' 3=0 : W 1 =0 

1 1 22  FÜRD= 1 TOA : F ( D >  =  I NT ( ABS (X(D))  +  . 5) ; NEXTD 
1130  FORD= 1 TOfl 
1140  S=S+F(D) 

1150  W 1  =  (  (  8*  I  V 1 80  )  *tr 
1152  W3=( ( (F(IO/2)*I )/180)*tr 
1155  LOW  COLI, 14, 14 

1160  ANGL160, 110,8*1,80.40,  1 

1161  I F  <  S* I K270AND ( S# I ) >90THENGCSUB 1 900 

1163  HI  COL 

1164  J=1 15 : K=67 
I F A> 1 0THEN J =120 
I FX ( D  >  <0THENLOW  COL  2,14,14 
IFX(D)=0THEN1 180 

1 1 68  I FMC/ABS ( X ( D ) ) >75THEN 1 1 80 

1 169  D$=LEFTf ( STR$ < X ( D > ) , 3) 

1 1 70  TEXT  1 55-COS (  <  W 1 -W3 )  +  <  tr/'2  )  )  * J ,  1 1  @-S I N ( ( W 1 -W3  >  +  ( ir/2 )  ) *K ,  Di ,  1 ,  1 . 8 

1180  IFX(DX0THENHI  COL 

1181  NEXTD 

1 1 83  Ml =0 : H2=0 : M3-0 : 8-0 

1184  FORD- 1 TOA 

1185  I FX  < D > >MAXTHENMAX»X ( D > 

1186  NEXTD 

1 1 87  W 1  =0 :  W2=0 :  W3-0  ••  3=0 


1165 

1166 
1167 
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1188 

1189 

1190 

1191 
1193 
1195 

1198 

1199 

1200 
1207 
1210 
1215 

1229 

1230 
1249 
1400 
1450 
1500 
1550 
1700 
1730 
1760 
1790 
1320 
1850 
1880 
1900 


1925 

1930 

1931 

1932 

1933 
1935 
1938 

1941 

1942 

1944 

1945 

1947 

1948 
1950 
1952 
1968 
1970 
1980 
1990 
2000 
2010 
2040 
2050 
2070 
2100 
2130 
2230 
2240 
2250 
2252 
2255 


'^ER 


L  i  J 
Ml  [  t  ELHER  T 
SUMME  -  31 

100  t  5  “* 


80 


60 

40 


IO 


FORD» 1 TOR 
3=S+F<10 
LOH  CQL  1,14,14 

U2=<<S*I)/1 80  )  #ir :  143=  <  <  <  F  <T  >  /2  >  *  I  >  / 1 80  >  *ir 
I FX  C  Ii  >  »MRXRNDX  <  B  )  =X  <  B+ 1 )  THEN 1 1 99 

I  FX  <  B )  »MflXTHEN  Pfl  I  NT  1 60-COS <  (  W2-M3  > +ir/2  >  *20 , 1 1 0-S I N  <  <  W2-W3 > +ir/2 >  *20 ,  1 
NEXTB 
HI  CQL 
G0SUB1925 
LOH  COLI  1, 14, 14 
TEXT  10,  6,  "  ST'+Tt,  1,2,  12 
I  FLEFT$  (  M* ,  1 )  O  "  .J  "THEN  1 400 
TEXT 10, 25, "W1  ITTELWERT  =  "+STR$<MW> ,1,1,8 
TEXT 10,33,"  ■KUMME  =  "+STR$<MB> ,1,1, 8 
HI  C0L 

Hl="  SNENUE-N  I RLKEN= I  “IRGRRMM=“  -OPY=-S" 

LOW  CQL  13,14,14 
TEXT3, 190,  "i3"+H$,  1,1,8 
HI  CQL 

GETZ$  IFZi=" "THEN 1700 

I  FZ*  0 1 "  M  "  RNDZ*<>  "  B  "  flNBZf  O  "B"  RNBZtO  "  C  "  THEN  1 700 
I FZf= " M " THENCSET8 : GOTO220 
I FZ*= " B" THENGOTO4000 
I FZi= " B " THENGOTO2000 
I FZ*= " C " THENCOPV -  GOTO 1 700 
END 

D 1  =  1 60-COS <  M 1  +ir/2  )  *80  B2=  1 1 0-S  I N  <  W 1  +ir/2 >  *40  :  B3=B2+20 
1910  L I NEB 1 , B2 , B 1 , B3 , 1 
1920  RETURN 

I -360/HC : 3=0 : LOW  COL 1 , 1 4 , 1 4 
F0RB=1T0R 
3~S+F(B> 

I FX  < B  > »MRXRNDX < B ) =X  < B+ 1 > THENRETURN 

W2= <  C 8* I  > / 1 80 > *it  ••  W3=  <  ( F <D  V2>* I  > / 1 80) *tr :  W4=  4  <  < S-F ( B >  > * I  > / 1 30 > #ir 
I FS* I C90RNB ( S-F  < B ) > * I O0RNDX ( B  > =MRXTHEN 1 963 
I FS* I >265RNB < S-F  C B  > >  * I >265RNBX  < B  > =MRXTHEN 1 963 
I  FS* I C270RNB  <  S-F  C B  )  ;•  *  I  >90flNDX <  B  >  =MRXTHEN  1942:  ELSE  :  GOTO  1 944 
PR  I  NT  1 60-COS  <  (.  W2-W3  > +ir/2  >  *86 , 115-SIN  C  <  W2-W3  ?  +ir/2  >  *48 ,  1  :  GOTO  1 968 
I FS* I >93RNB < S-F  < B ) > * I <90RNBX ( B  > «MRXTHEN 1 945 : ELSE : GOTO 1 947 
PR  I  NT  1 6 1  -COS  <  W2+ir/2  >  *80 ,  1 1 5-S I N  <  W2+it/2  >  *40 , 1 :  GOTO  1 968 
I FS* I >=270RHD < S-F  < D  > > * I C265RNBX < B  > =HRXTHEN 1 948 : ELSE : GOTO 1 968 
Pfl  I  NT  1 59-COS  4  W4+tr/2  >  *80 , 1 1 5-S  I N  4  W4 +ir/2  >  *40 ,  1G0T01968 
I FS* I >27@flNB < S-F  < B  > ) * I OOflNDX 4 B  > =MRXTHEH 1952: ELSE : GOTO  1 968 
Pfl  I  NT  1 60-COS  4  4  W2-W3  > +ff/2  >  *30,115-81  H  4  4  W2-W3  >+ff/2>*49,  1  :  GOTO  1 968 
NEXTB  24ER  dhunä^f 

HI  COL 

PETI IRH  Listing  für  die  grafische  Darstellung  von  Zahlen  (Fortsetzung) 

END“ 

REM****************************** 

REM*********  BflLKENGRflPH I K  ***** 

REM****************************** 

V=0 : Z=0 : C=0 
F0RB=1T0R 
FKB)=XCB) 

NEXT 

F0RB=1T0R 

I FRBS  4 fl  <  B ) )  >  VTHENVaflBS  <FKB>> 

NEXTB 

GH=flB3(  W100 

IFMCOMBRNBflO  1 0THENC-50 :  GH=2*GH 


Bild  2.  Das  Balkendiagramm  ist 
zur  vergleichenden  Darstellung 
zweier  Wertemengen  besonders 
gut  geeignet 


i  .  ?22 


WERTE  87 

MITTELWERT  = 
SUMME  =  47 


2.764 


vorhanden  sind  und  springt 
in  das  Hauptmenü  zurück. 

Die  Werteeingabe 
ist  unkompliziert 

Bei  der  Auswahl  von  Zah¬ 
len  zwischen  1  und  3  wird  zur 
Werteeingabe  übergegan¬ 
gen.  Als  erstes  wird  der  Titel 
abgefragt,  wobei  ein  Leer- 
string  nicht  akzeptiert  wird, 
da  der  Titel  gegebenenfalls 
gleichzeitig  als  Filename 
verwendet  wird.  Bei  der  dar¬ 
auffolgenden  Abfrage  nach 
der  Mittelwert-  und  Sum¬ 
menberechnung  werden 
nur  Eingaben  akzeptiert,  de¬ 


ren  jeweils  am  meisten  links 
stehendes  Zeichen  ein  j  oder 
n  ist. 

Anschließend  wird  die  An¬ 
zahl  der  Werte  abgefragt, 
die  zwischen  2  und  20  liegen 
muß.  Bei  der  jetzt  folgenden 
Werteeeingabe  sind  alle 
Zahlen  zulässig,  die  im  Wer¬ 
tebereich  des  Commodore 
64  liegen.  Nach  der  Darstel¬ 
lung  der  Werte  in  zwei  Rei¬ 
hen  muß  die  Sicherheitsab¬ 
frage  in  der  gegebenen  Wei¬ 
se  mit  j  oder  n  beantwortet 
werden.  Das  Programm  bie¬ 
tet  jetzt  die  Möglichkeit,  die 
Wertetabelle  auszudrucken 
und/oder  abzuspeichern. 

Achtung:  Bei  der  Abspei¬ 
cherung  wird  ein  eventuell 


liramTTGISi. 


Bild  3.  Mit  dem  Kuchendiagramm  lassen  sich  Größenverhältnisse  innerhalb  einer 
Wertemenge  sehr  übersichtlich  und  augenfällig  darstellen 


unter  diesem  Namen  existie¬ 
rendes  File  überschrieben. 
Die  so  abgespeicherte  Ta¬ 
belle  kann  später  wieder  mit 
dem  SCRLD-Befehl  des  Si¬ 
mons  Basic  aufgerufen  wer¬ 
den.  Nach  der  Abspeiche¬ 
rung  der  Tabelle  wird  der 
Floppyfehlerkanal  abge¬ 
fragt  und  gegebenenfalls  ei¬ 
ne  Fehlermeldung  ausgege¬ 
ben. 


±  7-5  S  4  7-4-5  — 6 


Anschließend  wird  in  den 
Grafikmodus  umgeschaltet. 

Die  Werte  werden  —  aus¬ 
gehend  von  der  »12-Uhr-Stel- 
lung«  —  als  »Kuchenstücke« 
dargestellt.  Der  Maximal¬ 
wert  (oder  die  Maximalwer¬ 
te,  falls  sie  nicht  direkt  ne¬ 
beneinanderliegen)  werden 
ausgefüllt.  Die  Werte  wer¬ 
den  konzentrisch  um  den  Ku¬ 
chen  ausgegeben,  wobei  ne¬ 
gative  Werte  rot  dargestellt 
werden  und  Null-Werte, 
ebenso  wie  Werte,  die  klei¬ 


ner  als  1/js  der  Betragssum¬ 
me  MC  sind,  nicht  berück¬ 
sichtigt  werden. 


Balkendiagramme 


Bis  zu  zehn  Werte  werden 
einreihig  dargestellt.  Bei  ne¬ 
gativen  Werten  werden  die 
Balken  sowohl  über  als  auch 
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2256 
2260 
2230 
2300 
2310 
2312 
2315 
2317 
23  IS 

2319 

2320 
2322 
2324 
2340 
2342 
2344 
2350 
2360 
2380 
2390 
2395 
2400 
2402 
2405 
2410 
2430 
2432 

2435 

2436 

2437 
2440 
2560 
2570 
2580 
2530 
2600 
2605 
2607 
2610 
2615 
2620 

2625 

2626 
2628 

2630 

2631 

2632 

2634 

2635 

2636 

2637 

2638 

2639 

2640 
2642 
2645 
2648 
2650 
2655 
2660 
2662 
2670 
2690 
2800 
2820 
2825 
2830 
2840 
2845 
2847 
2350 
2360 
2370 
2880 
2890 
2900 
2910 
2915 
2920 
2930 
2940 
2945 
2947 
2950 
2955 
2960 
2965 
2370 
3000 
3010 
3015 


FÜRD=  1  TOR  :  fl  <  D  >  =fl  <  B >  /GH  :  HE/, TB 
I FAO 1 0THEN2300 
I Ffl> 1 0THEN2800 

REM******  MRX  10  WERTE  ********** 

HIRES0, 14 

LOW  COL  15,14,14 

TEXT  10, 5,  "  :r+T$,  1,2, 10 

IFLEFTi Mi ,  1  > = "  J " THEHTEXT 1 0 , 23 ,  "  STI I TTELWERT  =  "  +STRT < MW >,1,1,8 
IFLEFT$<M$,  1  > = "  J " THEHTEXT  10,31,  "StBUMME  =  "+STR$<MB>  ,1,1,8 
HI  COL 

LIHE40, 160--C,  <40+8*26 >+10, 160-C,  1 

L I NE< 40+8*26 > +5, 158-C, <40+fl*26>+10, 160-C, 1 

L I HE < 40+8*26 > +5, 162-C, <40+fl*26>+10, 160-C, 1 

LIHE40, 160,40,50, 1 

L I HE42 , 55,40,50, 1 

LIHE38, 55,40,50, 1 

Q=0 

F ORF  = 1 40- <  C*  <  4/5  >  >  TO60STEP  <  < -20  >  +  < . 2*C  >  > 

LIHE38, F, 41 , F, 1 
Q=Q+20 

LOW  COL  9,14,14 

TEXT  0,F-6,STR$<Q>, 1, 1,8 

HI  COL 

HEXTF 

CH8R10, 155,37,1,1 

F0RB=1T08 

Hl=40+B*26 

I FX  <  B  >  <0THEHLOW  C0L2 ,14,14 
I FFK  B  >  <0THEHV= 1 10 : ELSE : V= 1 1 0-8  <  D > 

I FMC=METHEHV= 1 60-8 <  B  > 

RECH 1 - 1 8 , V , 1 4 , 8BS  <  8  <  B  >  > , 1 

L I HEH 1 - 18 , V , H 1 - 1 2 , V-6 , 1 

L I HEH 1-4,1 60-fl <  B  > -C , Hl+2, 154-fl <  B  > -C , 1 

LIHEH1-4, 160-C, Hl+2, 154-C, 1 

L I HEH 1 +2 , V-6 , H 1 - 12 , V-6 , 1 

LI HEH 1+2, 1 54-fl  <  B  > -C , H 1 +2 , 154-C, 1 

I FX <  B  >  =0THEH26 1 5 

I FX  <  B  >  <0THEHPfl I HTH 1 , 1 08 , 1 

PflINTHl-3, V+l , 1 

IFZ<BX0THEHHI  COL 

HEXT  B 

T=-l 

LOOP 

T=T+2 

B<T>=IHT<X<T>+.5> 

B<T+1 >=INT<X<T+1 >+, 5> 

I FX  <  T  > =0THEH2635 
P=105-fl<T>-<8<T>  >/flB3<8<T>  >*10 
I FX  <  T+ 1 >  =0THEH2637 

Q= 1 05-8  <  T + 1> - <  fl  <  T+ 1 >  > /flBS <  fl  <  T+ 1 >  >  * 1 0 
I FMB=MCTHEHP= 1 65 : 6= 1 74 
I Ffi  <  T  >  C0THEHLOW  COL  2,14,14 
I FX <  T  >  =0THEH2642 

TEXT <  40+T*26 > -23 , P , LEFTf < STR$  <B<T>>,3>, 1,1,7 
EX IT  IFT>=fl 

IF8<T+1> <0THEHLOW  COL  2,14,14 
I FX  <  T+ 1 >  =0THEH2655 

TEXT  <  40+  <  T+ 1 > *26  > -23 , Q , LEFT*  <  STR$  <  B  <  T+ 1 >  > , 3  > , 1 , 1 , 7 

EX IT  IF  T+l>=8 

IFFKTX0THEHHI  COL 

IFfl<T+l  X0THEHHI  COL 

EHB  LOOP 

GOTO3800 

REM*********  MRX  20  WERTE  ******** 

HIRE30, 14 

LOW  COL  1,14,14 

TEXT 1 0 , 03 , "  :r  +T$, 1 , 2, 10 

I FLEFT$  <  M$ , 1 >  = " J " THEHTEXT 10,20,"  ttl  I TTELWERT  =  " +STR$  <  MW) ,  1 , 1 , 8 
I FLEFTf <  Mt , 1 > = " J " THEHTEXT 10,28," SBUMME  =  " +STRt <  MB  >,1,1,8 
HI  COL 

LIHE40, 150,40,40, 1 
LIHE315, 150,315,40, 1 
LINE40, 150,315, 150, 1 
LIHE38, 45,40, 40, 1 
LIHE42, 45, 40,40,1 
L I HE3 13,45,315,40, 1 
LINE317, 45,315,40, 1 
Q=0 

FORF= 1 30TO50STEP-20 
L I HE38 , F , 4 1 , F , 1 
LIHE314, F, 317, F, 1 
Q=Q+20 

LOW  COL  7,14,14 
TEXT9 , F-6 , STRt <G> ,1,1,8 
CHRP 10, 145,37,1,1 
HI  COL 
HEXT 

FÜRI'=  1  TOR  8 < B  >  =AB3 < FK B>  )  :  HEXTD 
I FFR8C  <  8/2 > <>0THEHB=  <  I HT < 8/2  >  >  +  l  :  ELSE :  B=<8/2> 

F0RB=£+1T08 
H2=50+ <  B-B  >  *25 


S4ER  onun 


Zeile 

Funktion 

75: 

Farbwahl  für  Textdarstellung 

80: 

Dimensionierung  der  Feldvariablen 

100-460: 

Hauptmenü 

1000-1980 

Kuchen 

1100-1118: 

»Urkreis« 

1130-1160: 

Zeichnen  des  »Kuchengerüstes« 

1161: 

Verzweigung  nach  1900 

1164-1181 

Einschreiben  der  Werte 

1184-1186: 

Bestimmung  des  Maximalwertes 

1187-1199: 

Ausfüllen  des  größten  Sektors 

1200: 

Verzweigung  nach  1925 

1205-1500 

Titel,  Mittelwert,  Summe  und  Menü 

1700-1880 

Menüabfrage 

1900-1920 

Zeichnen  der  Begrenzung  am  Rande  des 

Kuchens 

1925-1980 

Ausfüllen  der  Maximumvorderfläche 

2000-3980 

Balkengrafik 

2000-2290 

Umrechnung  in  darstellbare  Werte,  Über¬ 

prüfung  auf  Negativwerte 

2300-2800 

Darstellung  von  höchstens  10  Werten 

2310-2318 

Titel,  Mittelwert,  Summe 

2320-2410 

Koordinatensystem,  Prozentzahlen 

2430-2620 

Zeichnen  der  Balkengerüste  und  Ausfül¬ 

len  der  rechten  Seitenfläche 

2622-2670:  Einschreiben  der  Werte 

2690: 

Sprung  nach  3800 

2800-3540:  Darstellung  von  bis  zu  20  Werten 

2820-2847 

Titel,  Mittelwert,  Summe 

2850-2965 

Koordinatensystem  mit  Prozentangabe 

2970-3340 

Zeichnen  der  hinteren  Balken,  Ausfüllen 

der  Flächen  und  Einschreiben  der  Werte 

3410-3540 

Zeichnen  der  hinteren  Balken,  Einschrei¬ 

ben  der  Werte 

3800-3980 

Menüabfrage 

4000-4980 

Diagramm 

4090-4180 

Bestimmung  des  Maximalwertes 

4210: 

Konstantenberechnung  für  darstellbare 

Größen 

4270-4345:  Titel,  Mittelwert,  Summe 

4357: 

Umrechnung  der  Werte  in  Koordinaten 

4360-4640 

Koordinatensystem  mit  Prozentangaben 

4650-4770 

Diagrammdarstellung 

4780-4850 

Einschreibung  der  Werte  (zweireihig) 

4900-4980 

Menüabfrage 

5000-7999 

Werteeingabe 

5060-5100 

Titel 

5120-5160 

Mitte!wert-Summe-Ab  frage 

5180-5330 

Anzahl  der  Werte  (2-20) 

5360-5420 

Werteeingabe 

5500-5620 

Wertetabelle 

5640-5660 

Sicherheitsabfrage 

5700: 

Verzweigung  nach  8000 

5720-5730:  Ausgabe  von  Mittelwert  und  Summe 

5800-5900:  Ausgabe  der  Wertetabelle  auf  dem 

Drucker 

5910-6000:  Speicherung  der  Tabelle 

8000-8300:  Mittelwert  und  Summe 

8125: 

Berechnung  der  Summe  der  Benage  der 

Werte 

8130: 

Berechnung  der  Summe  der  Werte 

8180: 

Mittelwert 

8190-8197 

Formatierung  von  Mittelwert  und  Summe 

9000-90SQ:  Fehlerkanal  der  Floppy 

9090-9180 

Darstellung  der  letzten  Grafik 

9120: 

Darstellung 

9141: 

Abfrage  der  Betragssumme 

9142-9180 

Menüabfrage 

Listing  für  die  grafische  Darstellung  von  Zahlen  (Fortsetzung) 


Zeilenorientierter  Ablaufplan  zu  »Chart  1« 


unter  der  X-Achse  angezeigt 
(negative  Werte  wieder  rot), 
ansonsten  nur  oberhalb  der 
X-Achse.  Nullwerte  werden 
ohne  Bezeichnung  als  leeres 
zweidimensionales  Recht¬ 
eck  gezeichnet. 

Bis  zu  20  Werte  werden 
zweireihig  hintereinander 
dargestellt  und  zwar  nur 
oberhalb  der  X-Achse.  Das 
Vorzeichen  der  Werte  (posi¬ 
tiv  oder  negativ)  wird  nur 
durch  die  eingeschriebenen 
Werte  kenntlich  gemacht, 
wobei  negative  Werte  wie¬ 
derum  rot  erscheinen.  Die 
Reihenfolge  der  Werte  läuft 
von  links  vorne  nach  rechts 
hinten. 
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3020  RECH2- 16,1 56-R (B)  ,  12/FKB) ,  1 

3030  L I NEH2- 1 5 , 1 50 , H2-5 , 1 50 , 0 

3040  LINEH2-16, 156-ROD , H2-10, 150-fl<B>, 1 

3050  LINEH2-4, 156-R<B> , H2+2, 150-R<D>, 1 

3060  L I HEH2-4 ,156, H2+2 ,150,1 

3070  L I NEH2+2 , 1 50 , H2+2, 150-FKB ) ,  1 

3080  LINEH2-10,  150-RCD) ,  H2+2,  150-R<B>, 1 

3090  LINEH2-3, 1 50, H2+ 1,150,0 

3092  I FFK  D ) =0THEH3340 

3095  I F ( Y/fl < D  >  > >75THEN3340 

3097  I FX  < B > =0THEN3340 

3 1 00  Pfl I NTH2- 1 5 , 157-fi  <D ) , 1 

3110  PR1NTH2-3, 155-RdO ,  1 

3120  PRINTH2-3, 154, 1 

3130  IFXCBX0THEHLGW  COL  2,14,14 

3140  TEXTH2-20 , 40 , LEFT* < STRf < X<D>>,3>,  1,1,8 

3330  IFX<DX0THEHHI  COL 

3340  HEXT 

3410  FORIi=lTOB 

3415  H3=50+D*25 

3420  RECH3-26,  178-R<B>  ,  12,  FKD)  ,  2 

3448  LIHEH3-26, 178-FKB) , H3-20, 1?2-R<B>,2 

3450  LINEH3-14, 178-fl<B> , H3-3, 172-R<D>,2 

3460  L I HEH3- 1 4 , 1 78 , H3-8 , 1 72 , 2 

3470  L I NEH3-8 ,172, H3-3 , 1 72-fl  <  B  > ,  2 

3480  LI HEH3-20 , 1 72-R < B > , H3-8 , 1 72-R < D > , 2 

3500  I FX <10  C0THENLOW  COL  2,14,14 

3510  TEXTH3-35, 181 , LEFT$<STR$<X<B> > , 3> , 1 , 1 , 8 

3520  I  FX <  B  X0THEMH I  COL 

3540  HEXT 

3800  H$="  S'  £HUE=\  ■'UCHEH®'  “IRGRRMM-”  ~OPV=-«" 

3810  LOW  COL 11, 14, 14 

3328  TEXT3 ,191,"  13"  +Hf  ,1,1,8 

3830  HI  COL 

3900  GETZ$: IFZ$=""THEH3900 

3930  I FZfO " M " RI "K" RHBZ$0" I' " RHBZtO " C " THEH3900 

3940  I FZ$= " M " THEHC8ET0 : GOTO220 

3950  I FZ$= "B" THENGOTO4000 

3960  I FZ$ = " K " THEHGOTO 1 08Q 

3970  I FZ$= " C " THEHCOPV : GOTO3900 

3980  EHB 

4000  rem  mmmmmmmmwMm-mmmm 

4030  REM  *******  BIRGRRMM  *********** 

4060  REM  **************************** 

4090  V=8 
4120  FORB=1TOR 

4150  I FRBS < X  < B  >  > >VTHEHV=RBS < X < B >  > 

4180  HEXT 


S46R  Df 


X(22)tA(22),B(22) 

,C(22).F(22): 

E$,E: 

T$: 

M$: 

A$.A: 

D: 

W$: 

MB: 

MC: 

MW: 

MAX,YX: 

V$: 


ÄÄ.BB$,CC,DD: 

ZS: 

GH: 

LL: 

I: 

Z: 

H$: 

S: 

W1,W2,W3,W4: 

D1.D2,D3: 

J,K: 

D$: 

C: 

K1.H2,H3: 

F: 


V: 

ISS 


Feldvariable  für  Zahlenwerte 

Abfrage  des  DarsteUungsmodus 
Titel  der  Tabelle,  SCRSV-Name 
Abfrage  nach  Mittelwert-Summen- 
Berechnung 
Anzahl  der  Werte 
Schleifenvariable 

Sicherheitsabfrage,  ob  Werte  in  Ord¬ 
nung  sind 
Summe  der  Werte 
Summe  der  Absolutwerte 
Mittelwert 

Maxima  der  Feldvariablen 
Abfrage  nach  dem  Ausdruck  der  Werte¬ 
tabelle 

Abfrage  nach  der  Speicherung  der  Wer¬ 
tetabelle 

Wird  unter  T$  abgespeichert 

Floppy-Fehlerkanal 

Abfrage  nach  der  Weiterführung  des 

Programms 

Faktor  zur  Umrechnung  der  Feldvaria¬ 
blen  in  darstellbare  Größe 
Länge  des  Textstrings  beim  Diagramm 
Schleifenvariable 

Darstellung  der  Prozentwerte  beim  Dia¬ 
gramm 

Textstring;  unterste  Zeile  bei  der  Grafik 
Winkelberechnung  beim  Kuchen 
Winkel  bei  Kuchen  (Bogenmaß) 

Winkel  beim  Kuchen  (Bogenmaß) 
Koordinaten  zur  Berechnung  der  Zahlen 
beim  Kuchen 

LEFTS  vom  Textstring  (Kuchen) 
Konstante  für  die  Negativdarstellung 
Laufvariablen  beim  Balken 
Laufvariablen  beim  Balken 
Koordinaten  (pos.-neg.)  beim  Balken 
Koordinaten  beim  Balken 


Variablenliste  von  »Chart  1« 


4210  GH=V/90 

4270  HI RES 1,14 

4280  LOW  COL 11, 14, 14 

4300  TEXT 10, 10, "ST'+Tf, 1,2, 10 

4330  IFLEFT$'-.M$,  1  >= "  J " THENTEXT 1 0 ,  30,  "MITTELWERT  =  "+3TR$<MW> ,1,1,8 
4340  I FLEFT  J  < M$ ,  1  > ="  J " THEHTEXT  10,33 ,  "  MUMME  =  "  +STR$ <  MB >,1,1,8 
4345  HI  COL 

4350  I FMBOMCTHENC=55 :  GH=GH*2 
4357  FORB= 1 TOR : C CB >  =X < B > /GH : NEXTD 
4360  L I HE50 , 1 50 ,50,50,1 

4365  FOR I = 1 42T054STEP-8 : LIHE49, I , 51 , I, 1 : HEXT I 
4330  L I HE 43 , 55 , 50 , 50, 1 : L I HE52 , 55 ,50,50,1 
4390  FORI =60TO240STEP  10 : LIHEI , 149-C, I , 151-C, 1 : HEXT I 
4420  LIHE50, 150-C, 250, 150-C, 1 

4440  LIHE245, 143-C,250, 150-C, 1 =LIHE245, 152-C,250, 150-C, 1 
4450  FOR I =20TO 1 00STEP20 
4452  LOW  COL  9,14,14 
4455  I FMBOMCTHEN4470 

4459  Z=0 

4460  FOR I  =  1 35TO553TEP-20 : Z=Z+20 : TEXT 1 0 , I , STR* < Z > , 1 , 1 , 8 : HEXT I : CHRR20 , 1 50 ,37,1,1 
4465  GOTO4640 

4470  Z=-120 

4480  FOR 1=1 40TO45STEP-9 : Z=Z+£0 : TEXT10, I , STR$<Z> ,1,1,8: NEXTI = CHRR20, 155,37,1,1 
4640  HI  COL 
4650  FÜRH=1T0R-1 

4660  LI HE < 50+B* 1 0 >— 1 0 , 150-C<D>-C, <50+D*10> , 150-C<D+1 >-C, 1 
4770  HEXT 
4780  B=~l 

4790  I  FMCOMBTHEHLL=2 :  ELSE :  LL=3 

4800  LOOP  Listing  für  die  grafische  Darstellung  von  Zahlen  (Fortsetzung) 

4805  LOW  C0L3, 14, 14 
4810  B=B+2 

4315  IFXCDX0THEHLOW  CÜL2,  14,  14 

4820  TEXT27+B*10, 160, LEFT$CSTR$CX<D> > , LL> ,  1, 1,8 

4322  IFX<DX0THEHHI  COL 

4824  EX IT  IF  B>=fl 

4326  LOW  C0L3, 14,14 

4828  IFXCB+1X0THEHLÜW  COL  2,14,14 

4830  TEXT27+<D+1 >*10, 172, LEFTf <STR$<X<D+1 > > , LL> ,1,1,3 

4832  IFXCD+1X0THENHI  COL 

4834  EXIT  IF  B+1>=R 

4840  HI  COL 

4850  EHB  LOOP 


Strichdiagramm 


Nach  dem  Zeichnen  des 
Koordinatensystems  —  auch 
hier  wird  bei  negativen  Wer¬ 
te  die  X-Achse  nach  oben 
verschoben  —  wird  der  Dia¬ 
grammzug  eingezogen.  Die 
Werte  werden  unterhalb  der 
X-Achse  in  der  üblichen  Wei¬ 
se  zweireihig  eingeschrie¬ 
ben. 


Kommandozeile 


Durch  Betätigen  der  jewei¬ 
ligen  Taste  können  die  Werte 
entweder  als  Kuchen,  Bal¬ 
ken  oder  Strichdiagramm 
dargestellt  werden.  Ferner 
kann  mit  der  Taste  M  zum 
Hauptmenü  zurückgesprun¬ 
gen  werden.  Außerdem  bie¬ 
tet  sich  noch  die  Möglichkeit, 
den  Grafikbildschirm  aus- 
drucken  zu  lassen.  Diese 
Hardcopy-Routine  ist  auf  den 
Epson  RX-80-Drucker  abge¬ 
stimmt  und  muß  bei  Verwen¬ 
dung  eines  anderen 
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Grafische  Darstellungen 


G  64 


WERTE  7 i 

MITTEL WE RT  = 
SUMME  =  -40 


3  -4  -3  --4 

7  -3  6 


4900  HT="  3\ENUE=\  -'UCHEN=-'  I  RLKEN=  I  -OPV=-«" 

4902  LOW  COL  6,14,14 
4905  TEXT3,  188,  "i3"+Hf,  1,1,8 
4907  HI  COL 

4910  GETZ$: IFZ$=" "THEN4910 

4930  I FZTO " M " ANDZTO " K " fiNDZT <> "E" flNDZTO" C " THEH49 1 0 
4940  I FZT-= "M" THENCSET0 : GOTO220 
4950  I FZ$= " B " THENGOTO2000 
4960  I FZ* = " K " THENGOTO 1 000 
49701 FZT= " C " THENCOPV : GOT049 1 0 
4930  END 

5000  REM*#*****#**########».#*###****##* 

5010  REM*#*#*  WERTEEI NGflBE  ******** 

5020  REH***##**###****#***##*#*****#*** 

5030  PRINT"M  WERTEEI  NGflBE 

5060  PRINTflT <5, 5) "TITEL  DER  TABELLE" 

5090  INPÜT"1»M»IW»II«W»»MMMIM»I" ;  TT 
5100  IFT$=" "THEH5030 

5120  PRINTflT<5, 8) "MITTELWERT  UND  SUMME" 

5150  iNPUT"r»t»n»»*»*»»n*w»*»»»ii*»»Bii" ; M$ 

5160  IFLEFTT(MT , 1 ><>" J"ANDLEFTT <MT, 1 )<>"N"THEN5120 
5130  PRINTflT <5, 11)" ANZAHL  DER  WERTE" 

5210  iNPUT"r»»»>»»»i>»B»>»M»iniBn*»i>> ,  fl* 

5240  fl=VAL(AT5 

5270  I FR<2ORR>20THENPRINTflT< 6, 135 "MAXIMAL  20  WERTE" :GOTO5180 
5330  FORD=lTOfl:X(D5=100*X(D5 =X<D5=INT<X<D5 5 = X(D5=X<D5/100 
5360  PRINTflT (5, 175 "WERT" ;  IU " 

5390  INPUT'TIBBBBBBBBBBBBBBBBBBBBBBBBI" ;  X<D5 

5420  NEXTD 

5500  PR INT "^3  WERTETflBELLE  ■" 

5530  PRINTflT (5, 35TT 
5550  PRINT"W" 

5560  FORD=lTOflSTEP2-X(D>=100*X<D> :X(D5=INT<X<B55 =X<D5=X<D5/100 
5570  X<D+15=100*X<D+15  X<D+15=INT(X<D+155 :X<D+15=X<D+1 5/100 
5590  PRINT"  WERT"  (D5  "="LEFT$(3TR$(X(D5 5 ,  75 

5600  PRINT"  H  WERT" <D+1 5 "="LEFT*<STR*(X<D+1 5 5 , 75 

5620  NEXT 

5640  PRINTflT <6, 175 "WERTE  IN  ORDNUNG  ?" 

5650  GETWf : I FWT= " " THEN565Ü 

5652  IFLEFTf <W$,  1 50" J"flNDLEFT*CW*,  1 5O"N"THEN5640 
5655  PRINTflT <26, 175W* 

5660  IFLEFT*<W*, 1 )  =  "N"THENPRINTflT <6, 17>"  " -GOTO5330 

5700  GOTO8000 

5720  PRINTflT<6, 19) "MITTELWERT  =  ";MW 

5730  PRINTATC6, 205 "SUMME  =  " ; MB 

5300  PR I NTflT  <6,225" WERTETflBELLE  AUSDRUCKEN " 

5338  I NPUT  " rUBBBBBBBBBBBBBBBBBBBBBBBBBBBBBI"  i  VT 

5360  IFLEFT*<V*,  150"J"flNDLEFT*<V*,  15O"N"THEN5800 
5830  IFLEFT*<V*, 1 5=" J"THENHRDCPV 
5900  IFLEFTTCv'T, 1 5="N"THEN5910 
5910  PRINTAT<6, 235 "WERTETflBELLE  SPEICHERN" 

5930  I  NPUT  " ;  ST 
5960  IFLEFT*<S*,  1 50" J"flNDLEFT*<S$,  1 5O"N"THEN5910 

5980  I FLEFTT < ST ,  1 5  =  "  J  "  THENSCRSV2 , 3 , 2 ,  "  0  "  +TT-+  " ,  3 ,  W "  '■  GOSUB9000  :  RETURN 
6000  I FLEFT T  <  S$ , 1 5 = " N " THENRETURN 
7999  END 

3000  REM*#**##**###****************### 

3030  REM****  SUMME  UND  MITTELWERT  #** 

8060  REM**#*#*#*#**##**####******###** 

3120  MB=0 

8125  FÜRD=lTOfl  MC=MC+flBS<X<D55 : NEXT 
8130  FORD=lTOfl:MB=MB+<X<D55 :NEXT 
8180  MW=MB/fl 

8 1 90  MW--MW* 1 000 :  MW“  I  NT  < MW  5  ■  MW=MW/ 1 000 
8 1 95  MB=MB* 1 000 : MB=I NT (MB 5 ; MB=MB/ 1 000 
8 1 97  MC=MC* 1 000 : MC=I NT < MC5 : MC=MC/ 1 900 
8200  I  FMT-=  " N " THEN5800 
8210  GOTO5720 
8300  END 

9900  REM  ##**  FEHLERKflNAL  *********** 

9010  OPEN 15,8, 15 
9920  I NPUT# 15, flfl, EBT , CC , DD 
9025  I FBB=0THENCLO3E 1 5 : RETURN 
9030  PR I NT " n" ; flfl , EBT , CC , DD 
9040  GETflT : I FflT= " " THEN9040 
9045  CLOSEI 5 
9050  RETURN 

9090  REM  *************************** 

9100  REM  #**  LETZTE  GRAPHIK  ******** 

9110  REM  *************************** 

9120  CSET  2 

9140  GETZT : IFZT=" "THEN9140 

9141  I FMC-0THEN9 160 

9142  I FZTO  "  M  "  flNDZTO "  E "  flNDZTO 1 
9144  I FZT= " M " THENCSET0 : GOTO220 
9146  I FZ$= " D " THENGOTO4000 
9148  IFZT="B" THENGOTO2000 
9150  I FZT= "K " THENOOTO 1 000 
9152  IFZT="C" THENCOPV : GOTO9140 
9160  CSET0 : GOTO220 
9180  END 
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Listing  für  die  grafische  Darstellung  von  Zahlen 
(Schluß) 


D  "  flNDZTO  "  C  "  ANDZTO  "K"  THEN9 1 40 


Bild  4.  Werteschwankungen  lassen  sich 
mit  dieser  Diagrammform  am  besten 
aufzeigen 


Druckers  in  geeigneter  Wei¬ 
se  abgeändert  werden. 


Farbwahl 


Zur  Farbwahl  muß  gesagt 
werden,  daß  sie  —  es  wird  ja 
in  Hires-Grafik  gearbeitet  — 
ein  wenig  eingeschränkt  ist. 
Die  Auswahl  muß  in  folgen¬ 
der  Form  durchgeführt  wer¬ 
den:  Hires  Vordergrund 
(VG),  Hintergrund  (HG) 
=  >  Low  col  VG  neu,  HG, 
HG  =  <  col  =  <  Low  col 
VG  neu,  HG,  HG  und  so  wei¬ 
ter. 

Dabei  wird  die  neue  Vor¬ 
dergrundfarbe  bestimmt. 
Man  muß  jedoch  trotzdem 
noch  aufpassen:  Wenn  Zei¬ 
chen  verschiedener  Farben 
zu  dicht  aneinanderkommen 
oder  sich  überlagern,  so 
führt  das  zu  Farbvermischun- 
gen  oder  völlig  anderen  Far¬ 
ben. 

Eine  Ausführung  im  weni¬ 
ger  problematischen  Multi- 
Modus  erwies  sich  jedoch 
wegen  der  Zeichengröße  als 
nicht  durchführbar. 

Das  Programm  läuft  ohne 
Änderungen  auf  dem  Com- 
modore  64  mit  der  Basic-Er- 
weiterung  »Simons  Basic«, 
der  Floppy  1541  und  dem  Ep¬ 
son  RX-80.  Falls  die  Datasette 
verwendet  werden  sollte, 
muß  der  SCRSV-Befehl  fol¬ 
gendermaßen  abgeändert 
werden  SCRSV  2,8,2...- 
SCRSV  1,1,1. 

Ansonsten  dürfte  das  Pro¬ 
gramm  mit  kleinen  Änderun¬ 
gen  auch  mit  jedem  anderen 
grafikfähigen  Drucker  lau¬ 
fen.  (Andreas  Funk) 
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Wollen  Sie  einen  gebrauchten  Computer  ver¬ 
kaufen  oder  erwerben?  Suchen  Sie  Zubehör? 
Haben  Sie  Software  anzubieten  oder  suchen 
Sie  Programme  oder  Verbindungen?  Die  FUND¬ 
GRUBE  von  64  er  bietet  allen  Computerfans  die 
Gelegenheit,  für  nur  DM  5.—  eine  private  Klein¬ 
anzeige  mit  bis  zu  5  Zeilen  Text  in  der  Rubrik 
Ihrer  Wahl  aufzugeben.  Und  so  kommt  Ihre  pri¬ 
vate  Kleinanzeige  in  die  FUNDGRUBE  der  Juli- 
Ausgabe  (erscheint  am  22.  Juni  84):  Schicken 
Sie  Ihren  Anzeigentext  bis  zum  28.  Mai  84  (Da¬ 
tum  des  Poststempels  und  Anzeigenschluß)  an 
»64'er«.  Später  eingehende  Aufträge  werden  in 
der  August-Ausgabe  (erscheint  am  20.  Juli  84) 
veröffentlicht. 


Am  besten  verwenden  Sie  dazu  die  vorbereitete 
Auftragskarte  am  Anfang  des  Heftes.  Bitte  be¬ 
achten  Sie:  Ihr  Anzeigentext  darf  maximal  5  Zei¬ 
len  mit  je  32  Buchstaben  betragen.  Überweisen 
Sie  den  Anzeigenpreis  von  DM  5,—  auf  das 
Postscheckkonto  Nr.  14199-803  beim  Post¬ 
scheckamt  mit  dem  Vermerk  »Markt  &  Technik, 
64'er-,  oder  schicken  Sie  uns  DM  5, —  als 
Scheck,  in  Briefmarken  oder  in  Bargeld.  Der 
Verlag  behält  sich  die  Veröffentlichung  längerer 
Texte  vor.  Kleinanzeigen,  die  entsprechend  ge¬ 
kennzeichnet  sind  oder  deren  Text  auf  eine  ge¬ 
werbliche  Tätigkeit  schließen  läßt,  werden  in 
der  Rubrik  -Gewerbliche  Kleinanzeigen«  zum 
Preis  von  DM  10,—  je  Zeile  Text  veröffentlicht. 
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64. 

Ziel  des  Spiels  ist  es,  mit  ei¬ 
nem  Motorrad  möglichst 
unfallfrei  eine  Straße  ent¬ 
lang  zu  fahren  und  dabei  so¬ 
weit  wie  möglich  zu  kom¬ 
men.  Dies  wird  durch  Steine 
auf  der  Fahrbahn  und  Stra¬ 
ßensperren  erschwert. 
Nach  Erreichen  von  2000 
Punkten  gelangt  man  in  die 
nächste  Schwierigkeitsstufe, 
die  dann  schon  etwas  mehr 
Geschicklichkeit  verlangt. 
Die  Anzahl  der  Hindernisse 
und  die  Geschwindigkeit 
steigen  von  Spielstufe  zu 
Spielstufe,  wobei  maximal 
drei  Stufen  durchfahren 
werden  können. 

Ein  Bewegen  des  Joysticks 
in  Richtung  »vorwärts«  er¬ 
höht  die  Geschwindigkeit, 
die  bei  Richtung  »zurück« 
wieder  gedrosselt  wird.  Der 
Punktestand  steigt  natürlich 
proportional  zur  Geschwin¬ 
digkeit.  Eine  einprogram¬ 
mierte  Mindestgeschwin¬ 
digkeit  verhindert  dabei  das 
Aufkommen  von  Lange¬ 
weile. 

Der  Kern  des  Spiels  ist 
vollständig  in  Maschinen¬ 
sprache  programmiert,  wo¬ 
durch  eine  Spielgeschwin¬ 
digkeit  erzielt  wird,  die  mit 
Basic  nicht  zu  erreichen  wä¬ 
re.  Lediglich  Start  und  Ende 
einer  Spielstufe  sind  in  Basic 
geschrieben. 


S46R 


1000-1040  Einlesen  J®"'®anenspIa0heteils: 

1050-1880  »niesen  des  Masch  *  hIochen  die 

$C000  Hauptschleife,  hier  wu 

sä— srs 

erreicht  ist,  wird  ms  Basic  wog 

Sprüngen.  ,  entsprechend  der  Bewe- 

*C079  «esieue-ebenso  die  Fre¬ 

quenzen  des  Motorgeräusches. 

$C063  Straße  einen  Schn«  g^deaus. 

*C120  Straße  einen  Schn«  lau»- 

$C147  Straße  e’n™  S^"  lusgedruckt,  das  immer  zu- 

$C168  Hier  wird  das  Haus  au  y 

fällig  erscheint. 

*g®  Emeugenverschiedener  Hindernisse  mit  Zufall, 

1590-1600  IweSTd«  Mlußmelodie. 

1610-1860  Kaltstart. 

1870-2080  Warmstart.  Mac.rhinenprogramm. 

2090  Einsprung  ms  Mas  htn  Level. 

2100-2130  Test  auf  Kollosion  oder  nächste 

2140-2220  Initialisierung  ^  melodie,  Laufschrift  bei 

ab  223° 


ben  Stieren  s-  Viel  1 
Sauber*uneh*elstuft 
ü0ch  aö  und  ,  "'  We 

s'^Zz?° 


Dle  einzelnen  Programm«®  »on  »Hot  «Pools. 


Während  des  Spiels  ist  der 
Bildschirm  in  zwei  Teile  ge¬ 
teilt;  der  obere  Teil  stellt  den 
Horizont  sowie  den  Spiel¬ 
stand  dar,  während  im  unter¬ 
en  Teil  das  Bild  ständig 
durch  das  Maschinenpro¬ 
gramm  nach  unten  gescrollt 
wird.  Der  Verlauf  der  Straße 
wird  durch  einen  Zufallszah¬ 
lengenerator  bestimmt, 
ebenso  das  Auftreten  der 
verschiedenen  Hindernisse. 
Doch  damit  genug  der  Vor¬ 
rede.  Sie  können  das  Pro¬ 
gramm  jetzt  eintippen,  aber 
vergewissern  Sie  sich  vor 
dem  Starten  bitte  vom  ord¬ 
nungsgemäßen  Sitz  Ihres 
Sturzhelms! 

(Bernd  Günther) 
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832 

833 

834 

835 

836 
83 1 

838 

839 

041-848 
850-852 

853 
855 


**S£ecW» 

^  -tirV.  oben 
L^fenspe* 


*4 


'Q 


^  <  . 
^f-v. 


cr,eicnei  . 

^  ^Ü-G«£  ra6ge„ngs^ 

812  NloW^iS - 

«80381 - 


00^”^e 

4, 

*»4,  ^ftf4 b*  °V.- 


>o, 


'"4 

Ve 


% 


1000  BRTR0, 16,0,0, 16,0,0, 
1010  BRTR168,64,  16,32,  16, 
1020  BRTR0, 0,252, 0,0 >252, 
1030  BRTR0, 16,0,0, 16,0,0, 
1040  RESTORE : FÜRI=896TÜ95 
1 050  BRTR076 ,181,1 93 , 076 , 
1060  DRTH072,003, 189, 124, 
1070  BRTR002, 145,004, 136, 
1080  BRTR232, 214,001, 282, 
1090  DRTR024, 208, 212, 162, 
1100  BRTR064, 003, 157,024, 
1110  DRTR160, 012, 169,012, 
1 1 20  BRTR249 , 096 ,169, 000 , 
1130  DRTR157, 067, 003, 078, 
1140  DRTR 173, 069, 003, 208, 
1150  DRTR245, 173,068,083, 
1160  DRTR208, 245, 173,071, 
1170  BRTR162, 01 1,206, 001, 
1180  BRTR141 , 083,003, 144, 
1190  DRTR221, 176,028,238, 
1200  DRTR056, 173,083,003, 
1210  BRTR141 , 001,212, 173, 
1220  BRTR065, 003, 032, 082, 
1230  BRTR202, 160,011, 169, 
1240  BRTR206,065,003,096, 
1 250  DRTR024 , 005 , 202 , 1 60 , 
1 260  DRTR024 , 005 ,096,169, 
1270  DRTR012, 192, 173,031, 
1280  BRTR240, 004, 104,076, 
1290  BRTR102, 194, 153,052, 
1300  BRTR237,206,087,003, 
1310  BRTR003, 20 1,008, 208, 
1320  BRTR010, 176,247, 174, 
1 330  BRTR237 , 035 , 003 , 1 44 , 
1340  BRTfil 18, 032, 121 , 192, 
1350  BRTR195, 104, 168, 136, 
1 360  BfiTfl 1 94 , 032 , 0 12,1 92 , 
1 370  BRTR032 , 099 , 1 92 , 032 , 

1 380  BRTR 1 73 , 065 , 003 , 024 , 

Ausgabe  6/Juni  1984 


16,8, 0 ,32,0, 1 , 1 69 , 0 , 4 
128,32,8,0,48,0,0,48,0,0,48 
0,0, 252 ,0,0 , 48 , 0 , 0 , 48 , 8 
00,0,0,00,0,0, 0 , 0 , 0 
9 : RERBR : PÜKE I , R : HEXT 
012, 192,076,099, 192,076,214, 194, 
195, 149,001,202,208. 243, 160,039, 
016,245, 162,007, 181,001,056,233, 
202,202,016, 239, 165,009,201, 005, 
008, 189,072,003, 149,001,202,208, 
217, 169, 160, 157,024,005,202,016, 
024, 109,065,003, 170, 169,032, 157, 
141,003,220, 173,001,220, 141,066, 
066 , 003 , 062 , 067 , 003 , 202 ,016, 244 , 
013,162,013, 206 , 000 , 208 , 208 , 003 , 
208,013, 162,013,238,000,208,208, 
003,208,035, 173,001,208,201,130, 
208 , 202 , 208 , 250 , 238 , 082 , 003 , 024 , 
003 , 238 , 084 , 003 , 1 73 , 070 , 003 , 208 , 
092 , 803 , 1 62 , 011, 238 , 00 1 , 208 , 202 , 
233 ,020,141 , 083 , 003 ,176, 003 , 206 , 
083,003, 141,007,212, 173,084,803, 
192, 169,012,024, 109,065,003, 170, 
032 ,157, 024 , 005 , 202 ,136, 208 , 249 , 
032,082, 192, 169,012,024, 109,065, 
011,169,032, 157,024,005,202, 136, 
007, 141,087,003, 162,000, 160,000, 
208,240,004, 104,076, 100, 194,032, 
100, 194,032,099, 192, 032,013, 195, 
005,232, 189, 102, 194, 153,052,217, 
1 73 , 887 , 083 , 208 ,189,076,194,193, 
003 , 076 , 184,1 93 , 234 , 234 , 234 ,172, 
027,212, 224 , 085 ,176, 050 , 1 40 , 085 , 
237 , 1 52 , 072 , 032 ,214,1 94 , 032 ,012, 
1 73 , 83 1 , 208 , 288 , 110 , 206 , 065 , 003 , 
208,221,076, 181, 193,224, 170, 176, 
1 73 ,  03 1 , 288 , 208 ..  876 , 032 ,121,192. 
0 13,1 95 , 1 04 , 1 68 , 1 36 , 208 , 224 , 076 , 
109,085,003, 176, 148,201,026, 176, 
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162, 

177, 

040, 

208, 

248, 

242, 

024, 

003, 

169, 

206, 

003, 

144, 

173, 

035, 

288, 

084, 

141, 

169, 

169, 

003, 

208, 

138, 

121, 

104, 

232, 

032, 

827, 

003, 

192, 

032, 

035, 

173, 

181, 

144, 


008,181, 
006, 145, 
149,001, 
218, 165, 
096, 162, 
096, 032, 
805 , 282 , 
162,004, 
000, 141, 
016,208, 
238,016, 
028,206, 
083,003, 
173,001, 
250,286, 
003, 173, 
008,212, 
095,157, 
223, 157, 

170. 169, 

249. 169, 
072,152, 
192, 173, 
168, 104, 
208, 192, 
048, 195, 
212,248, 
173,065, 
173,031, 
032, 193, 
152,072, 
031,208, 
193, 140, 
152,072, 


001,157 
008,177 
176,004 
008,201 
039, 173 
082, 192 

136.208 
169,080 
083, 228 
202,288 
208,202 
092 , 003 
105,020 
208,201 
082,003 
082,003 
096 , 238 
024,005 
024,005 

233. 157 

105.157 
072,032 
031,208 
170, 189 
008,208 
173,065 
251,192 
003,056 

208.208 
032,013 
032,214 
208, 068 
085, 003 
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1390  BRTR194,032,012,  192,  173,031,208,203,025,032,  121,192,  173,031,208,203,017 
1400  DRTR238,065,003,032,071, 193,032,013, 195, 104,  163,  136,203,221,076, 131,133 
1410  DRTR104, 096, 160,005, 160,002, 160,002, 160,002, 160,002, 160,002, 160,002, 160 
1420  HRTR005, 160,005, 160,002, 160,002, 160,002, 160,002, 160,002, 160,002, 160,005 
1430  BRTR160, 005, 160,002,091,006, 160,002, 160,002,091,006, 160,002, 160,005, 160 
1 440  IIRTR005 ,160, 002 ,  1 60 , 002 ,  1 60 ,  002 ,  1 60 , 002 ,  1 60 , 002 ,  1 60 , 002 ,  1 60 , 005 ,  1 05 , 005 
1 450  DRTR032 , 00 1 , 032 ,001, 032 , 00 1 , 032 , 00 1 , 032 , 00 1 , 032 , 00 1 , 095 , 005 , 1 60 , 005 , 1 05 
1 460  DRTR005 , 032 , 00 1 , 032 ,  00 1 , 032 , 00 1 , 032 , 00 1 , 035 , 005 , 1 60 , 005 ,160, 005 , 1 60 , 005 
1 470  DRTR 1 60 , 005 , 1 60 , 005 , 1 60 , 000 , 1 60 , 005 , 1 60 , 005 , 1 60 , 005 ,162, 000 ,160, 033 , 024 
1 480  DRTR032 ,010, 229 ,173,112, 003 , 024 , 1 05 , 0 1 6 ,  1 44 , 003 , 233 ,113 , 003 , 056 , 237 , 092 
1 430  HRTR0O3 ,141,112, 003 ,176, 003 , 206 ,113, 003 ,173,113, 003 ,174,112,003, 205 , 1 03 
1500  BRTR003, 208, 009, 236, 102,003, 144,004, 104, 104, 104,036,032,205, 183,096, 173 
1510  BRTR092 , 003 ,141, 033 , 003 ,163, 00 1,141, 034 , 003 , 206 , 095 , 003 , 203 ,251, 206 , 034 
1 520  BRTR003 , 208 , 246 , 206 , 093 , 003 , 208 , 236 , 096 / 1 73 , 027 ,212,201, 003 ,176, 023 , 1 73 
1530  BRTR065, 003, 105,004, 170, 160,003, 169, 127, 157,024,005, 169,002, 157,024,217 
1540  BRTR232, 136,208,242,096,205, 104,003, 176,049, 173,027,212,041,015,201,001 
1550  BRTR240, 247, 163, 173,027,212,201,003, 144,249,201,012, 176,245, 109,065,003 
1560  BRTR170, 152, 157,024,217, 173,027,212,201,123, 176,003, 169,090, 157,024,005 
1570  BRTR076, 124, 195, 169,081,157,024,005,036, 152,213, 132,213, 152,007, 192,007 
1580  F OR I =43 1 52TO50052 : RERBR : POKEI , R : HEXT 

1590  BRTR103, 17, 237, 21 , 20, 26, 69, 23, 3, 31 , 69, 29, 20, 26, 237, 21 , 103, 17 
1 600  FÜR  I  =  1 T03  ••  RERBR  1  <1  >  ,  R2  <  I  >  :  HEXT 
1610  V=53248 : POKEV , 1 60  =  PÜKEV+ 1,215 
1620  POKEV+23, 1 :P0KEV+29, 1 

1 630  PGKEV+28 , 1 : POKEV+37 ,12: POKEV+38 , 0 : PÜKEV+39 , 7 
1 640  PÜKE2040 ,14: P0KE5328 1 , 2 
1650  PRINT"3B"J 


1660 

PRINT” 

zwm 

zwm  zw 

■  ZW  W" 

1670 

PRINT” 

a  5 

a  ■  a  m 

a  ■  a  " 

1680 

PRINT” 

a  ■ 

a  m  a  ■ 

a  «  a  " 

1690 

PRINT" 

a 

■  a  ■  a  «  a  " 

1700 

PRINT” 

a  ■ 

a  m  a  = 

-a»  a  ” 

1710 

PRINT” 

a  ■ 

a  ■  a  ■ 

a  ■  a  " 

1720 

PRINT" 

r  r  a  w 

r"  : PRINT -PRINT 

1730 

PRINT" 

am 

zwm  ans 

zwm  zw 

w  zw  w 

zwm 

1740 

PRINT” 

a 

B 

a 

■  a  * 

a  ■  a  ■ 

a  ■ 

a  i 

1750 

PRINT" 

a 

K 

a 

■  a  ■ 

a  ■  a  ■ 

a  ■ 

a  ■ 

1760 

PRINT" 

a 

■ 

zwm 

a  ■  a 

■  a 

WSW 

a  ■ 

1770 

PRINT" 

a 

■ 

a  ■ 

a  ■  a 

■  a  ■  a 

■  a  ■ 

a 

1780 

PRINT" 

a 

■ 

a  ü 

a  ■  a 

■  a  ■  a 

■  a  ® 

a 

1730 

PRINT" 

a 

■F 

r  r 

a  w  a 

w  a 

w  » 

1800  PRINT: PRINT”  <C>  BV  BERND  GUENTHER" : PRINT 

1810  PRINT”  PRESS  JOYSTICK  BUTTON" 

1 820  POKEV+2 1 , 1 : P0KE832 , 5 : POKE880 , 0 : P0KE33 1 , 0 : LE=1 : MR =3 : POKE 198,0 

1330  POKE53280, 7 

1840  POKE53280, 2 

1 850  GETfl$ : I FRS= ” ” THEN 1 830 

1 860  POKEV+23 , 0 : POKEV+29 , 0 

1870  I FMR=0THEN2230 

1 830  POKE360 , C4-LE >+12: POKEV+2 1 , 0 

1 830  I FLEC3THENL 1 =LE*2000 : PÜKE370 , L 1 RNB255 : P0KE87 1 , L 1 /256 
1 900  PÜKE872 , LE #30 : POKEV , 1 80 : POKEV+ 1 , 230 : P0KE833 , 1 4 
1910  PR I NT " nS”  ; : PÜKE5328 1,1: POKE53280 ,7:51=54272: POKEV+3 1 , 0 
1920  PRINT" S  HIGH* 


1330  PRINT" 3 
1940  PRINT”  3 
1950  PRINT" S 
I960 
1970 
1980 
1990 
2000 
2010 
2020 


a  ■  a 
a 

a 

a 

a  *  a 


SCÜRE= 

a 

a  ! 

■  a 


a 


~  , 


PRINT” a  ■ 

PRINT” a  ■ 

PRINT” a  ■" 

PR  I  NT  ”  m"  TRB  <  7  >  M I  B$  <  STR$  <  HI>,  2  > ; 

PR I NTTPIB (16);:  FÜR I  =  1 TOMR :  PR I NT ” 9  " ;  :  NEXT 
PRINTTRB<33>MIB$CSTR$(PEEKC880::'+256#PEEKC881  >  > ,  2> 
PÜKESI+15, 100 : PQKESI+18, 129 


100 


Listing  von  »Hot  Wheels«  (Fortsetzung) 
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2030  GOSUB2140 
2040  SVS49158 

2050  FÜR I = 1 TO 1 8 : SYS 4 3 1 55 = HEXT 

2060  PR I  NT "  "  LE 

2070  FÜR I = 1 TO 1 8 = SVS43 1 55 : FÜR J= 1 TO 1 00 : HEXT : HEXT 
2080  POKEV+2 1 , 1 
203FT  PR  I  NT "  S"  ;  =  SVS43 1 52 

21001 FPEEK < 880  > +256#PEEK < 88 1 > <LE*2000ÜRLE=3THENGOSUB2200 : NR=MR- 1 : GOTO 1 870 
2110  I FLE<3THENLE=LE+ 1 : I FLE<3THEH 1 870 
2 1 20  PÜKE870 , 255 : PÜKE87 1 , 255  =  GOTO 1 878 
2130  END 

2 1 40  POKES  1,0:  F'ÜKES  1  +  1,3  =  PÜKE850 ..  3  :  POKES  1+4,8 
2 1 50  POKES I +5 , 255 : POKES I +6 , 255 

2 1 68  POKES 1+7,80  =  P0KE85 1 , 80 : POKES 1+8,0: P0KE852 , 0 : POKES 1  +  11,0 
2 1 78  POKES 1+12,255: POKES 1+13,255 
2 1 88  POKES I +4 , 33 : POKES 1+11,129 
2 1 98  POKES 1+24,1 38 : RETURN 

2208  POKES 1+4,0: POKES 1+11,0: POKEV+2 1,0: POKES 1+1,50: POKES 1+5,0 
22 1 0  POKES I +6 , 258 : POKES 1+4,123  =  POKES I +4,128 
2220  FÜR I  =  1 TO200  =  POKEV+2 1,0:  POKEV+2 1',  1  =  NEXT I  =  RETURN 
2238  POKE53280 ,13: POKES 1+11,0: POKEV+2 1,0: PR I NT " 3" 

2248  FÜR I  =  1 T09 : POKES I , fl 1 < I > : POKES I  + 1 , fl2  < I > : POKES 1+4,17 
2258  : FORJ= 1 TO200: NEXT : POKES 1+4, 16: HEXT 
2268  I FPEEK  < 830 >  +256SPEEK  < 88 1 >  <H I THEN 1 080 
2278  H I =PEEK < 880 ) +256*PEEK C 88 1 > 

2288  R$=" . . . " 

2290  r$=r$+ "hi ghscore " +fl$  ;  P0KE5323 1 ,  i : 

2300  F0RK=1T03 : F0RI=1T059 

23 1 0  pr  i  nt  "  mmmm&tk."  m  i  m  <  rt  ,  i ,  40  > 

2320  PR  I  NT  "  N I  D$  (.  R$ ,  68- 1 , 48  > 

2330  FÜR ,T=  1  TO  1 80  :  NEXT  =  NEXT  =  NEXT  =  GOTO  1 080 

RERDV.  G^VER  Onung— ^  Listing  von  »Hot  Wheels«  (Schluß) 
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VC  20  Grundversion 


=SS3t 


An  dieser  Stelle  ist  auf  die 
mehr  oder  weniger  kom¬ 
plizierten  Speicher-  und  La¬ 
devorgänge  des  Programms 
hinzuweisen.  Das  Programm 
besteht  aus  drei  Teilen  (La¬ 
sting  1  bis  3),  welche  in  der 
Reihenfolge  Grafik  —  Ma¬ 
schinensprache  —  Haupt¬ 
programm  eingetippt  und 
auf  Kassette  gespeichert 
werden  sollten.  Um  endlich 
spielen  zu  können,  müssen 
alle  drei  Teilprogramme  in 


der  gleichen  Reihenfolge 
geladen  und  gestartet  wer¬ 
den.  Haben  Sie  den  Lade¬ 
vorgang  beendet,  wird  das 
Spiel  durch  die  Taste  »0« 
oder  durch  den  Aktions¬ 
knopf  des  Joysticks  gestar¬ 
tet.  Das  Programm  kann  mit 
Joystick  oder  über  die  Tasta¬ 
tur  gespielt  werden.  Ist  kein 
Joystick  vorhanden,  lenken 
Sie  Ihr  Männchen  mit  folgen¬ 
den  Tasten: 

A:  oben;  Z:  unten;  B:  links;  M: 
rechts;  N:  Sprung. 


Sie  sind  in  Gestalt  eines  kleinen  Männ¬ 
chens  tief  unten  im  Kerker  eines  alten 
Schlosses  gefangen.  Ihr  Ziel  ist  es,  aus 
diesem  Schloß  zu  entkommen.  Dazu 
müssen  Sie  natürlich  erst  einige  Hinder¬ 
nisse  überwinden. 


Beim  Vorhandensein  ei¬ 
nes  Joysticks  dient  der  Ak¬ 
tionsknopf  als  Sprungknopf. 


Wsmsssssa 

194,0  56,56>56'40'62'  '  e  aS5,235'2Sj'  a6,36,«8 

f.E$L  32.73.2Ö.255'255'  63A27.63.255'  238.®*«7'1 

if&fiZS*'252'2"'  q0jl29 \l5#3l3,^3f2l5,U 

^f^Tfl66,36,24'60"  '  102i60^0'U3'  254j252^24'56'J  '  2l6, 208^« 

s5f  «i3«'221'0,1  ;2 ,240.^'«4'0,  u0, iö,*s 

oft .. 7 < •  1  '  .  «  a.0i0»24,‘' 


fff U-®1'*' *  ^ ,240.224-6*'0'  U0g  u0j0,29, 13'5'0' 1,60'4l  24, 34.255-  W**®’* 
S'wTffilS'213  25».,n9.S5'6S' 

gsi.  173.^5, 225, 2»'2‘ 

5‘A1.2!,,,101.251,1, 11^223, a®'225  - — 


<  6raWtui6'«>slMan0r 

. 


104  '33H? 
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Variablenliste  zu  »Ghost  Manor« 

A  Zeiteinheiten 

B,C  Koordinaten  des  Männchens 
S  Sektornummer 
F  In  Reserve  befindliche  Leben 
H.I.G.T  Laufvariablen 
M  Zeigt  an,  ob  Männchen  gerade  springt 
R  Punktzahl 

Q,W  Zeichen  hinter  Männchen 
P,0  Zeichen  für  Männchen 

X  Speicherstelle  für  die  nächste  Note  der  Melodie 
U  Richtung  für  Sprung 
L,K  Bewegung  der  Beine 


jß 

31 , 1 3(r  ..  ' * 00' i  53.,  206  i  ^2, 

tkZ. 


Ghost  Manor 


daß  dem  Männchen  keine 
Steine  auf  den  Kopf  fallen. 
Hat  man  schließlich  alle  Ge¬ 
fahren  gut  überstanden, 
klettert  man  auf  die  Zinne 
und  stellt  sich  unter  den 
Schlüssel,  wodurch  das 
Schloßtor  geöffnet  wird. 

Nun  werden  die  Fallgru¬ 
ben  übersprungen,  und  man 
steht  vor  dem  letzten  großen 
Hindernis,  der  Brücke.  Die¬ 
se  Brücke  schließt  und  öffnet 
sich  periodisch,  und  es  gilt, 
den  richtigen  Moment  abzu- 


»htfii 


■  30 


7  ■'52, 2 


3J 


34, 


J05.r- 


?4,3j 

80i,p, 


3j 

32 

0,  5i 

33 
32, 

34 
3.5 


40,3, 


-40, o  _ 


44, 


300 . 


’2I,  i 


136, 


f*rm 


^  32,  p 


22, 


1 3,  /  o 


240 


53, 

6' 


152 


2, 0, 


?40, 


las. 


16 


01. 


28, 


?40,  o 


1  ‘  340, 3  2  - 

-4,i44 

30',6s'*,IS, 

,3  'I53'20S, 

l7'  240,o  0. 


24, 


144, 


118, 


10, 


165, 


24, 


144, 


32 


110,. 


24, 


30, 


144, 


22, 


24  J  . 


*  38, 


20  j 


•41 . 


163, 


165, 


153, 


36 

3?  _ 
3, 30 


■10,  -• 


30, 


30 


l'ftrfii 

£0Tfti 


122, 


23, 

200, 


1 69 .  o-. 


24, 


144,2 


153, 


15 


22= 


2^40,  g,  p 


200, 


30, 


24, 


132, 


-30,0 


65, 

7.3, 


33 


22, 

223 


141. 
'  30, 


144, 


15, 


165, 


233, 


40 


l22.o 


35 


136 


65, 


31. 


141. 


‘2C- 

201 

223 


30,  2 


24, 
'  240 


1  0, 

144, 


1?3, 


110, 

123, 


160, 


17, 


30, 

30, 


10, 


40 

41 


21 


'2,2, 


30, 


h0Tfli 


?40, 


24, 


1  ®-'  1  ?3 


60, 

36, 


18,2 


144, 


165, 

'22.9 


165, 

20i 


32, 

,30 


22, 

22, 


?40, 

185 

?00, 


21. 


18, 


24, 


160, 

153, 


144, 


I3,j 

154 


110, 


241 


30, 


169, 


32, 


Z**'16?± J1?'  30,12 


20i 


22, 


24, 


REflr<v 


153 


185,22 


144, 


165, 


141, 

-201 


240, 


128,3, 


220 


220, 


?41. 


30, 


31. 


30 


30,2 


165,9 


141, 


?40 


165 
'  1 6, 


3e 


201,3 


32, 


229, 


24 

■23, 

24, 


80, 


153, 


240, 


220, 


20,160 


144, 

141. 
144 , 


136, 


153, 

136, 


11 


165 


24, 


32 


144, 


128,3 


141 


233 


18, 


1 200 


152, 


00  ■'  200, 


1 85 , 


•30 

165, 


12 


1 6 - 


220, 


U, 


840, 


'31. 

1 44 , 


30, 


141, 


153, 

241 


201 


22 


220, 


31,  p 


30, 


840, 


136, 


24, 


14 


w 


Listing  2.  Maschinenspracheroutine  für  Ghost  Manor 


Zu  Beginn  des  Spiels  befin¬ 
det  sich  das  Männchen 
rechts  unten  vor  seiner  Zel¬ 
le.  Nun  kommen  ihm  Spin¬ 
nen  entgegengekrabbelt, 
welche  es  überspringen 
muß.  In  der  nächsten  Etage 
rollen  ihm  Fässer  entgegen, 
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und  es  muß  mit  einem  Dop¬ 
pelsprung  eine  Fallgrube 
überspringen.  Einen  Dop¬ 
pelsprung  macht  man  fol¬ 
gendermaßen:  Man  drückt 
die  Sprungtaste  »N«  und  kurz 
danach  die  Taste  für  die 


Richtungsangabe  (B  oder 
M).  Genauso  verfährt  man, 
wenn  man  mit  Joystick  spielt: 
Aktionsknopf  kurz  drücken, 
danach  Richtungsangabe. 
Ist  auch  dieser  Teü  ge¬ 
schafft,  muß  man  aufpassen, 


passen,  um  die  Brücke  über¬ 
queren  zu  können.  Die  letz¬ 
ten  Fallgruben  werden 
übersprungen,  und  Sie  kön¬ 
nen  aus  dem  Schloß  hinaus¬ 
laufen.  Geschafft!  Eine  kurze 
Erholungspause,  und  das 
Spiel  beginnt  von  vorne,  na¬ 
türlich  etwas  schwieriger. 

Die  Sektornummer  wird 
links  oben,  die  Anzahl  der  in 
Reserve  verbliebenen  Le¬ 
ben  (man  beginnt  mit  drei 
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»  POKE«,  1»  =  «™  «  =  *"»  =  TF^CrORPEEK^« 
60  GOTO50 

110  PRINT"a«ISIÖ«t  0„ 

\\i  PRINt"q@  3  3  3  «|QM  MT 


IJ 


113  PRIMT-Öä  ®® 

114  PRIHT"V8  z- 

lll  PRINT "£QQ  ttttT1®Q6  g: 

IS  5«  g  UQ;: 

ia  primt"jjq  gqq  Qbqqqq  oopaJj;; 

121  PRINT-Q  @  3  Q«  • 

122  PRINT' Q  esRRQ" J 

lg  PRINT"U3KK*KKK  KKK.KKKKKKKK#;;; 

III  ÄtS  Hp  SJfflP ! :  TOsnwc®» ■ 

•s  EÄ-»  - 

SVS6700  '•  IFPEEk 

i  »üs-  ,0 

lll 


. 


=1TQ50 : NEXTT : GOTO 130 


onun^^/ 


iS  S^iiSgi^siSiSsSS 

gfesffiSiÄSRM 
ll 

245  GOTO 130 

il  IFpSS^t '  ! FO=  1 0THENO=8 
065  IFP=7THEN430 

i m  I^FPEEKXB+C+22>=0THENB*B+22 

310  IFP=7THEN0=0+1 ■ IFQ-10THENO  d 
315  IFF-7THEN490 

iS 

360  IFP=1THEN0=0+1 • IF0-4THE1  -  - 
365  IFP=1THEN490 

400  IFpS<B+C+1>=0ORPEEKC|+C+1)=32THENC=C+1 

410  IFP=4THEN0=0+1 ■ IFO-' THENO  - 

415  IFP=4THEN490 
420  p=4 • 0=5 : GOTO490 
4S0  IFP=1THEHÜ=1 

g  IFPEEK(B+C-44-U}s!32THENB=B”22  ■  M=1  ■  GOTO470 
460  GOTO 130 

4Q0  W=PEEK1B+C>  :  G=PEEK<B+C-22>  GOTU1J0  ,eo76,  R ;  HEKT  :  P0KE368 

HI  P0KEB+C?34 : POKEB+C-22 , 33  =  P0KE3S878,  >^0*0=288X0258  ««*«' 

76,0 

502  NEXTH 

503  POkIsÜ^Q  0  •  f=F-1  ■  IFF=0THEN530 

II  SLmm 

600  POKEB+C-22 , 32  ■  B=B+2t  ir  rtcr- 

III  FORT»  1TO100*EXT ■  OOTOW0  .  P0KE7946,  32 :  FORT=1TO150 :  HEXT : P0KE7924 , 32 

IS  SiSJÄTE«  =  POKE^-H : NBOH - 0 

SS  S=S+1 :  R=E+" :  ifs=2™ehf“f+1 

1020  GOT 080 
READY. 


Leben)  wird  rechts  oben  an¬ 
gezeigt.  Für  jeden  Versuch 
hat  man  3000  Zeiteinheiten 
zur  Verfügung.  Hat  man  ei¬ 
nen  Sektor  geschafft,  be¬ 
kommt  man  die  verbliebe¬ 
nen  Zeiteinheiten  als  Bonus 
gutgeschrieben.  Nach  dem 
ersten  Sektor  erhält  man  ein 
Extra-Leben,  und  es  taucht 
ein  Gespenst  auf,  welches 
den  Schlüssel  auf  der  Zinne 
bewacht.  Noch  ein  Tip: 
Wenn  Sie  vor  einem  aus  der 
Decke  ragenden  Felsen  ste¬ 
hen,  können  Sie  nicht  sprin¬ 
gen. 

Nutzt  die  grafi¬ 
schen  Möglichkei¬ 
ten  des  VC  20 
voll  aus 

Das  Spiel  ist  nicht  ganz  ein¬ 
fach,  man  braucht  schon  ein 
bißchen  Übung,  um  den  er¬ 
sten  Sektor  zu  schaffen.  Lei¬ 
der  ist  das  Spiel  nur  in 
Schwarzweiß  programmiert, 
aber  eine  farbliche  Gestal¬ 
tung  des  Bildschirms  war  mit 
dem  beschränkten  Spei¬ 
cherplatz  der  VC  20-Grund- 
version  nicht  mehr  möglich. 

Als  Ausgleich  werden  die 
grafischen  Fähigkeiten  des 
VC  20  voll  ausgenutzt.  Alle 
Bewegungen  von  Figuren 
werden  aus  Geschwindig¬ 
keitsgründen  von  einem  Ma- 
schinenspracheprogramm 
Bausgeführt. 

(Frank  Backes) 
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Anhand  der  SYS-Adresse, 
mit  der  Sie  das  Programm 
starten,  sehen  Sie,  in  wel¬ 
chem  16-  oder  8-KByte-Block 
das  Modul  liegt.  Zum  Bei¬ 
spiel  Start  mit  SYS  32592,  das 
Modul  befindet  sich  also  im 
Bereich  von  16384  bis  32768. 

Kopieren  auf  Band 

Stecken  Sie  das  Modul  in 
den  Erweiterungsport  und 
schalten  Sie  den  VC  20  ein. 
Legen  Sie  eine  Kassette  in 
den  Recorder  und  tippen  Sie 
POKE  43,0:POKE  44,64: 

POKE  45,0:POKE  46,128: 
Save"(Name)",l 
ein,  wenn  das  Modul  ab 
16384  liegt,  oder 
POKE  43,0:POKE  44,160: 

POKE  45,0:POKE  46,192: 

Save”(Name)”,l 
wenn  das  Programm  ab 
40960  gespeichert  ist. 

Stecken  Sie  die  für  das  Mo¬ 
dul  benötigte  16-  oder  8- 
KByte-Erweiterung  in  den 
Port,  legen  Sie  die  Kassette 
ein  und  laden  Sie  das  Pro¬ 
gramm  mit  »Load«.  So  ein¬ 
fach  ist  das.  Nach  dem  La¬ 
den  starten  Sie  das  Modul 
mit  der  gewohnten  SYS- 
Adresse. 
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Der  Autostart  bei 
Modulen ... 


Module,  die  im  Bereich 
von  40960  liegen,  werden 
beim  Einschalten  selbst  ge¬ 
startet,  wenn  die  Anfangs¬ 
adressen  folgendermaßen 
belegt  sind: 


40960 

low 

Startadresse  des  Pro¬ 
gramms 

40961 

high 

40962 

low 

Adresse  bei  Restore 

40963 

high 

40964 

65  -  a 

40965 

48  =0 

40966 

195  =  C 

40967 

194  =  B 

40968 

205  =  M 

Während  eines  Kaltstartes 
werden  die  Adressen  von 
40964  bis  40968  nach  der  Zei¬ 
chenfolge  "aOCBM”  abge¬ 
sucht  und  das  Programm  ge¬ 
gebenenfalls  gestartet. 

Wenn  Sie  über  eine  Spei¬ 
chererweiterung  in  diesem 
Bereich  verfügen,  manipu¬ 
lieren  Sie  doch  einmal  diese 
Adressen,  lassen  Sie  die 
Startadresse  auf  ein  Maschi¬ 
nenprogramm  zeigen  und 


tippen  Sie  SYS  64802  (Kalt¬ 
start)  ein.  Sie  werden  sehen, 
daß  das  Maschinenpro¬ 
gramm  gestartet  wird. 

...  und  seine  Über¬ 
listung 

Da  der  Computer  die 
Adressen  für  den  Autostart 
nur  beim  Kaltstart  absucht, 
könnte  man  den  Computer 
einschalten  und  dann  das 
Modul  emstecken.  Mit  viel 
Glück  könnte  es  klappen, 
aber  es  können  auch  erheb¬ 
liche  Schäden  am  Computer 
oder  am  Modul  auftreten. 

Softwaremäßig  gibt  es  kei¬ 
ne  Lösung,  den  Autostart  zu 
verhindern.  Ein  kleiner  Ein¬ 
griff  in  die  Hardware 
macht's  aber  doch  möglich. 
Auf  Seite  150  des  VC 
20-Handbuches  ist  die 
Hauptspeicher-Erweiterung 
beschrieben.  Uns  interes¬ 
siert  Pin  2 1  ( +  5  V),  Wenn  Sie 
Ihren  VC  20  öffnen,  sehen 
Sie  die  Anordnung  entspre¬ 
chend  dem  Bild. 


Kneifen  Sie  den  Draht  von 
Pin  21  durch  und  löten  Sie 
zwei  nicht  zu  dünne,  isolierte 
Kabel  an.  Die  Kabel  verbin¬ 
den  Sie  mit  einem  Schalter, 
den  Sie  im  Gehäuse  einbau¬ 
en  oder  nach  außen  legen 
können.  Mittels  dieses 
Schalters  können  Sie  Modu¬ 
le  ein-  und  ausschalten! 

Also,  wir  stecken  das  Mo¬ 
dul  bei  ausgeschaltetem 
Computer  in  den  Port  und 
unterbrechen  Pin  2 1  mit  un¬ 
serem  Schalter.  Dann  schal¬ 
ten  wir  den  VC  20  ein,  der 
Computer  findet  in  den  be¬ 
treffenden  Adressen  kein 
aOCBM  und  meldet  sich  mit 
dem  üblichen  Bild.  Jetzt 
drücken  wir  unseren  Schal¬ 
ter,  der  Strom  fließt,  aber  es 
wird  kein  Autostart  mehr 
ausgeführt.  Wir  können  das 
Modul  jetzt  mit 
POKE  43,0:POKE  44,160:PO- 
KE  45,0:POKE  46,192: 

SAVE''(Name)",l 
auf  Kassette  abspeichern 
oder  mit  SYS  64802  (Kaltstart, 
wir  erinnern  uns)  starten. 

(Jörg  Grohne) 
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Logic  Disassembler 


_ 


Logic  Disassembler 


Wer  hat  nicht  schon  nach  einem  guten 
Einstieg  in  das  Betriebssystem  oder  in 
ein  selbstgeschriebenes  Assembler¬ 
programm  gesucht,  um  dem  Verlauf  der 
Programmlogik  folgen  zu  können? 

Mit  diesem  ganz  in  Ba¬ 
sic  geschriebenen  Pro¬ 


gramm  besteht  nun  die  Mög¬ 
lichkeit,  bei  einer  beliebigen 
Startadresse  einzusteigen 
und  von  dort  aus  das  Pro¬ 
gramm  zu  verfolgen. 

Auch  mit  einem  komplet¬ 
ten  Disassembler-Listing 
war  dies  bisher  eine  äußerst 
aufwendige  und  zeitrauben¬ 
de  Angelegenheit.  Bei  je¬ 
dem  Sprung-Befehl  (sei  es 
BRANCH,  JSR  oder  JMP) 
ging  das  große  Blättern  los. 
Das  Verfolgen  von  mehrstufi¬ 
gen  Unterroutinen  mit  unter¬ 
schiedlichen  Ausstiegsmög¬ 
lichkeiten  ist  schon  ganz  un¬ 
möglich, 

Der  Logic-Disassembler 
hingegen  wartet  bei  jedem 
Sprungbefehl  auf  die  Einga¬ 
be  von  Y,  N  oder  X.  Y  steht  für 
»yes«,  das  heißt  dem  Sprung¬ 
befehl  folgen,  N  steht  für 
»no«,  also  zum  Beispiel  eine 
bekannte  Unterroutine  ein¬ 
fach  zu  übergehen,  damit 
das  Listing  nicht  zu  unüber¬ 
sichtlich  wird.  X  schließlich 
steht  für  »exit«,  wodurch  der 
Disassembler  bei  einer  neu¬ 
en  Adresse  gestartet  werden 
kann. 

Das  Listing  der  Basic-Rou- 
tine  »NEW«  (Bild  1)  zeigt  als 
Beispiel,  wie  ein  solcher  Dis¬ 
assembler-Lauf  vor  sich 
geht. 

Die  Einsprungadresse 
liegt  bei  $C642. 

In  Zeile  1  wird  der  BNE- 
Befehl  mit  der  Eingabe  von 
»N«  übergangen.  Der  JSR- 
Befehl  in  Zeile  14  wird  mit  »Y« 
verfolgt,  und  es  erfolgt  eine 
Verzweigung  in  die  Routine 
$C68E.  Mit  der  Anzeige  von 
STACK  0  wird  über  die  Tiefe 
der  Unterprogramm-Ver¬ 
schachtelung  informiert.  Bei 
Erreichen  von  RTS  in  Zeile  22 
wird  in  das  Hauptprogramm 
(STACK  0)  zurückgesprun¬ 
gen  und  dieses  .ab  der 
Adresse  $C65C  fortgeführt. 
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Der  darauffolgende 

BRANCH-Befehl  in  Zeile  24 
wird  wieder  mit  der  Eingabe 
von  »N«  übergangen.  In  Zeile 
25  folgt  dann  ein  RTS,  und  da 
der  STACK  auf  0  steht  (man 
befindet  sich  also  im  Haupt¬ 
programm),  wird  der  Disas¬ 
sembler-Vorgang  beendet 


1  CLOG IC  -  DISRSSEMBLER> 

LINE# 

LOC 

CODE 

STATEMENT 

0000 

*=*C642 

0001 

C642 

D0 

FD 

BNE 

*C641 

0002 

C644 

A3 

00 

LDR 

#*00 

0003 

C646 

R8 

TRV 

0004 

C647 

31 

2B 

STR 

<*2B> , V 

0005 

C649 

C8 

INV 

0006 

C64A 

91 

2B 

STA 

<*2B>,Y 

0007 

C64C 

A5 

2B 

LDR 

*2B 

0008 

C64E 

18 

CLC 

0003 

C64F 

63 

02 

ADC 

#*02 

0010 

C651 

85 

2D 

STA 

*2D 

0011 

C653 

A5 

2C 

LDR 

*2C 

0012 

C655 

69 

00 

ADC 

#*00 

0013 

C637 

85 

2E 

STR 

*2E 

0014 

C653 

20 

8E  C6 

JSR 

*C68E 

STACK  1 

0015 

C68E 

18 

CLC 

0016 

C68F 

A5 

2B 

LDR 

*2B 

0017 

C691 

63 

FF 

ADC 

#*FF 

0018 

C693 

85 

7A 

STA 

*7R 

0019 

C695 

R5 

2C 

LDR 

*2C 

0020 

C697 

69 

FF 

ADC 

#*FF 

0021 

C699 

85 

7B 

STA 

*7B 

0022 

C69B 

60 

RTS 

STACK  0 

0023 

C65C 

A9 

00 

LDR 

#*00 

0024 

C65E 

D0 

2D 

BNE 

*C68D 

0025 

C68D 

60 

RTS 

START- 

-ADR. 

=  *C642 

Rilri  1 

END-ADR. 

=  *C68D 

Logische  Disassemblierung 

|  <  DISASSEMBLER 

-  END  > 

der  Basic-Routine  »NEW« 

Das  Listing  zum  »Logic  Disassembler« 


100  P0KE36879, 233  =  PRINT 'TOT  ***  DISRSSEMBLER  *##" 

110  PR I NT " Md  LOGIC  -  DISRSSEMBLER" 

120  PRINT"«  VC  20  -  VERSION" 

130  PRINT":«  BV 

140  PRINT"««  FREU  HAMMER 

150  PRINT"«  OBERE  BERGSTR.  12" 

160  PRINT"«  5419  LEUTEROD 

170  PRINT"«  TEL.  02602/60372  " 

186  PRINT”«««  PRESS  ANV  KEY  "J 
190  GETfl* ; I Ffl*= " " THEN 1 90 

200  CLR : P0KE36879 , 25 : D I MSS  < 1 00  > : SSX=0 : D I MAC* < 255  > 

210  PR INT "IX  DIS ASSEMBLER-START  >«" 

220  FOR I =0TQ255 : RERDRC* CI ) • HEXT 

230  P0KE36379 .■  25  =  PR  I NT  "  IX  D I  SFjSSEMBLER-STRRT  >«" 

240  H$= " 0 1 23456789 ABCDEF " 

250  GOT 0520 

260  REM  HEX-UMRECHHIJNG 

270  DE=0 = FORZ0=1TO4N0=0 = F0R21=1T016 

280  I FM I D*  C X* , Z0 , 1 >  =M I Df C H* , Z 1 , 1 > THENN0=Z 1-1=21=16 

290  NEXT : DE=DE+16TC4-Z0>#N0  =  NEXT  =  RETURN 

300  REM  DEZ-UMRECHNUNG 

310  X$="" =FORZ0*4TO1STEP-1 =Zl=INTCDE/16tCZ0-lJ) 

320  IFZl=0THENXf=X$+"0" ; GOTO350 

330  I FZ 1 C 1 OTHENX* =X*+R I GHT* < STR* C Z 1 > , LEN 1 STR* < Z 1 > >-l  >  = GOTO350 
340  X*=X*+CHR$ ( Z 1 +55 > 

350  DE=DE-Zl*16t<Z0-l >  = NEXT  =  RETURN 

369  REM  DER  6502- BEFEHLSSATZ 

370  DRTR  BRK,0RR  <X,,,,0RR  *,RSL  *,,PHP,ÜRfl  #  ,  fiSL  .•  ,  ,  ORfl  ,  ASL?  ,  ,  BPL  .■  ORA  (V,,, 

330  DRTR  ORR  *X,ASL  *X,, CLC, ORR  Y,,,,0Rfl  X,RSL  X, , JSR?, AND  <X,,,BIT  $ , AND  * 

390  DRTR  ROL  *,,PLP,AND  #,  ROL..  ,  BIT?,  AND?,  ROL?,  ,  BMI ,  AND  <V, , ,  ,  RHD  $X,  POL  *X, 

400  DRTR  SEC, AND  Y, , , , AND  X,RQL  X, ,RTI,EOR  CX,,,,E0R  * , LSR  *,,PHfl,E0R  # 

410  DRTR  LSR, , .JMP?, EUR?, LSR?, , BVC, EUR  <Y, , , , EUR  *X, LSR  *X, , CLI , EUR  V, , , , EOR  X 
420  DRTR  LSR  X,, RTS, ABC  <X,,,,RDC  *,R0R  *,,PLfl,RHC  #,ROR, , JMP  C, ADC?, ROR?, 

430  DRTR  BVS ,  RDC  (V, ,  , , RDC  *X,  ROR  *X, , SEI ,  RDC  V,  ,  ,  ,  RDC  X, ROR  X,  , ,  STR  CX, , 

440  DRTR  STV  *,STfl  $,STX  * , , DEV, , TXR, , STV?, STR?, STX?, , BCC, STR  CV,,,STV  *X 
450  DRTR  STR  «4, STX  *Y, ,TVfl,STA  V,TXS,,,STA  X,,,LDV  # , LDR  CX,LDX  #,,LDV  * 

460  DRTR  LDR  *,LDX  *, , TAY, LDR  #, TRX, , LDY?, LDR?, LDX?, , BCS, LDR  <V, , ,  LDY  $X 
470  DRTR  LDR  *X,LBX  *V,,CLV,LDfl  V,TXS,,LDV  X,LBR  X,LBX  V, ,CPV  #,CMP  CX, , 

480  DRTR  CPV  *,CMP  *, DEC  *,,INV,CMP  #, DEX, , CPV?, CMP?, DEC?, , BNE, CMP  <V, , , 

490  DRTR  CMP  *X,DEC  *X,,CLD,CMP  Y, , , , CMP  K,DEC  X,,CPX  #,SBC  CX, , , CPX  * 

590  DRTR  SBC  *, INC  $,,INX,SBC  #, NOP, , CPX?, SBC?, INC?, , BEQ, SBC  <Y,,,,SBC  *X 
510  DRTR  INC  *X,, SED, SBC  V,,,,SBC  X, INC  X, 

520  FE*=AD*  INPUT "«START  CHEX)";A$ 

530  I FR$= " END " THENCLR • P0KE36379, 29 = END 
540  I FLEN < fl* ) O50RLEFT* (R$,l)<>"$ " THEN520 

550  X#= R I GHT*  < A$ , 4 ) = GOSUB260 : R=DE 

560  PR  INT  "SPRINTER  ?  V/N"  =  P0KE198, 0 :  WRIT198,  1 :  GETAN* ;  IFflN$O"Y"THEN600 
570  INPUT "COMMENT  " ; FF* 

580  0PEN4, 4 : CMD4 

590  PR  I NTCHR*  <  1 4  )  j  FF* CHR*  (15)  :  F'R  I  NT 

600  PRINT'TXLOGIC  -  DISRSSEMBLER>" : PRINT : PRINT" LINE#  LOC  CODE  STATE 

MENT 

6 1 0  F'R  I  NT :  F'R  I  NT "  @000  *-  "  flf :  pp  I HT :  N=0 

620  AD=fl-l 

636  RD=RD+ 1 = N=N+ 1 ■ DE=AD = GOSUB300 

640  F'R I MTR I GUT* C  " 0000 " +R I GHT* < STR* < N > , LEN < STR*  <M>  - 1  > ,  4  >  "  " X* "  " ; 

650  P=PEEK < RD > = DE=P • ER=P : GOSUB300  S*=R I GHT* CX* , 2>  = RESTORE 
660  MN*=RC$CP>  :  I FLEN C MN* =3THEN880 
670  I  FMH*= "  THEN940 
680  I FLEN ( MH*  > =4THEN330 

690  I FR I GHT* C MN* ,  1  :■  =  " # " THENMN*=MN*+  "*"  -  GOTO770 
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CLOGIC  -  DI SASSEMBLER> 

LINE# 

LOG 

CODE 

STATEMENT 

0000 

*=*FFE1 

0001 

FFE1 

6C 

03 

26 

JMP  (*0328) 

0002 

F770 

A5 

91 

LDA  *91 

0003 

F772 

C9 

FE 

CMP  #*FE 

0004 

F774 

D0 

07 

BNE  *F77D 

0005 

F776 

OS 

PHP 

0006 

F777 

20 

CC 

FF 

JSR  *FFCC 

STACK  1 

0007 

FFCC 

6C 

03 

22 

JMP  <*0322) 

0008 

F3F3 

A2 

03 

LDX  #*03 

0009 

F3F5 

E4 

SA 

CPX  *9A 

0010 

F3F7 

B0 

03 

BCS  *F3FC 

0011 

F3F9 

20 

04 

EF 

JSR  *EF04 

STACK  2 

0012 

F3FC 

E4 

99 

CPX  *99 

0013 

F3FE 

B0 

03 

BCS  *F403 

0014 

F400 

20 

F6 

EE 

JSR  *EEF6 

STACK  2 

0015 

F403 

86 

SA 

STX  *SA 

0016 

F405 

A9 

00 

LDA  #*00 

0017 

F407 

35 

99 

STR  *99 

0013 

F409 

60 

RTS 

STACK  0 

0019 

F77A 

83 

C6 

STA  *C6 

0020 

F77C 

28 

PLP 

0021 

F77D 

6© 

RTS 

START 

-ADR. 

=  SFFE1 

Bild  2. 

END-ADR. 

»  *F77D 

Die  Betriebssystemroutine  zur  Abfra- 

ae  der  STOP-Taste  disassembliert. 

<  DISASSEMBLER 

-  END  > 

A*  _  T  _ , 

RC  y.  r*be  l  \e  - 

ssy.  z  f,  r  SPr''Jr9*drA  ,_Ui 

T’tie ; ;  c  Z  65Q2~mZ?  e££en 
ssy  _  6  fu^  St^i^ics 

I  r*., 

**  ~  Jnctex  f.yfjT 

?  £  IsaSiarjKSi- 

i>~ 

-  ^'J*ch.napfl5r!fse  bei 


.  Varia^n.Lisie 
“Logic  Disass, 


SSJ2'~JRic!Z  f-v «4!Z*T+u.rV„ 

ÄÄÄ’ 

S!2&tilZ5n&:  p> 


vom 
e<nbier« 


Z*i  i. 


und  auf  die  erneute  Eingabe 
einer  Startadresse  gewartet. 

Bei  der  Eingabe  von  »END« 
statt  einer  Startadresse  wird 
das  Programm  beendet. 


700 

710 

720 

730 

740 

750 

760 

770 

780 

790 


IFRIGHTtCMN*,  1  >="*' "THEN770 
I FEA= 1 08THEN840 
I FM I D*< MN* ,5,1 > = " < " THEH790 
I FM I  D*< MN* ,5,1 >  =  "  *  " THEN8 1 0 
GQSUB750  =  MN*=LEFT* < MN* , 4  > + ’ 


’  +fi*  < 2 ) +fl*  < 1 > + " , " +R I GHT*  < MN$, 1 ) : GOTÜ940 
FORK= 1 T02  =  AD=flD+ 1 : P=PEEK < HD > : IE=P : GOSUB300  =  fl*<  K  > =R I GHT* <  X* , 2  > 

S*=S*+ "  " +R I GHT* ( X* , 2) ' HEXT ■ RETURN 

HD=HD+1 :  F-PEEK(AD)  : DE=P :  GOSUB380  •  S*=S*+"  "+RIGHT* CX* ,  2) 

MH*=MN*+R I GHT $ < X* , 2) : GOTO940 

flH=fiI'+l :  P=PEEK<RD>  •  DE=F'  •  GOSUB300 :  S*=3*+"  "+RIGHT*<X*,  2) 

300  MN*=LEFT*CMN*, 5)+"*"+RIGHT* (X*, 2)  +  " > , "+RIGHT*CMN$, 1 ) : GOTO940 
8 1 R  flH=flIi+ 1  =  P=PEEK  <  RD >  :  DE=P :  GOSUB300 :  S*=S*+  "  "  +R I  GHT*  <  X* ,  2  ) 

320  MN*-LEFT * (. MN* ,  5)+RIGHT*CX*,  2>+" ,  "+RIGHT*CMN$,  1  >  '•  GOTO940 
83G  GÜ8UB750  :  MH*=LEFT* < MN*  ,31'  +  "  * “  +fl$ < 2 )  +A*  CI >  :  GOTO940 
840  RB=flH+2 : P=PEEK<RB> - DE=P = GO8UB300 = S*=3*+"  M+RIGHT*Q{*,2> 

MN*=LEFT * < MN* ,  5  )  +  "  $  "  +R I GHT *  (  X* ,  2) 

P=PEEK  <  RB- 1  >  ■  BE=F'  •  GOSUB300 :  3*=3*+  "  "  +R I  GHT*  <  X* ,  2  ) 

MN*=MN*+R I GHT $  <  X* , 2>+" ) " = GOTO940 
REM  BRRNCH-BEFEHL 

I  FMN*=  "  BRK  "  ORLEFT  *  <  MNf ,  1  )O"B”THEN940 
AD=AD+1  ■  P=PEEKCfiD>  =  DE=P  ■  GOSUB300  =  S$=S*+"  "+RIGHT*<X$, 2) 

I FP>= 1 30THENR0=RD- < 255-P  ) : GOTO930 
R0=<RD-1  )+P+2 

DE«R0 = GOSUB300 : MN*=MN*+ "  * " +X* ' KZ= 1 


850 

860 

870 

830 

890 

900 

910 

920 

930 

940 

950 

96@ 

970 


STACK 11  +STR*  <  SSX+ 1  > 

STACK "+STR*(3SX-1> 
16) MN* : I FER=96THENPR I NT 


I  FEfi=32THENMN$=riN$+ " 

I FER=96flNDS3X>8THENMN*=MN*+ " 

F'R  I  NTLEFT*  <  S*+  " 

I FKZ=0THEN 1 030 
930  GETRR* : IFRR*=" "THEN930 
998  I FflN*= " V " THENCMD4 , CHR* < 1 5  ) ; 

1 000  KZ=0 : I F  AR*= " N " T  HEN 1 030 
1010  I FRR$= " X " GOTO 1 260 
1020  PRINT • AD=R0-1 • KZ=0 

1030  IFER=32OREfl=76ÜREfl=108ORER=96THEN1050 
1040  GOTO630 
1050  I FER096THEN 1090 
1060  REM  "BEFEHL :  RTS" 

1070  I FSSX=0THEN 1269 
1080  SSX=SSZ-1  RD=SS<SSX) : GOTO630 
1090  REM  "BEFEHL  JSR" 

1 1 00  GETRR* ; I FAR$= " " THEN 1 1 00 
1110  I FRN*= " V " THENCMD4 , CHR* < 15); 

1120  I FRR$= " N " T HEN630 
1130  I  FRFl*=  "  X  "  GOTO  1 260 
1140  I FER032THEN 1 1 80 

1 1 59  SS < SSX > =RH : SSX=SSX+ 1 : PRINT 

1 1 60  AD=PEEK ( RD ) *256+PEEK < RD- 1 ) - 1 
1170  GOTO630 

1180  REM  "BEFEHL :  JMP  RES." 

1 1 90  I FER076THEN 1 2 1 9 

1209  RD=F'EEK ( RD ) *256+PEEK< RD-1  )-l :  PRINT  :  GOTO630 

1210  REM  "BEFEHL :  JMP  INB. " 

1220  Al=PEEK<RIi)*256+PEEK<fiIi-l ) 

1230  R2=PEEK <  RB ) *256+PEEK ( AD- 1 ) 

1240  IFR10R2THENPRINT  :  PRINT"LQGIC  FLOW  ERROR"  :  GOTO  1260 
1 250  RD=PEEK < fl 1  + 1 ) »256+PEEK <R1 )-l : PRI NT : GOTO630 
1260  DE=RD : GOSUB300 

1279  PRINT :  PRINT"3TRRT-RBR.  =  " R* :  F'R I NT " END-RDR .  =  *"X* 

1280  PRINT = PRI NT "<  DISRSSEMBLER  -  END  >" 

1290  I FRN*= " V " THENPR INTH4 , :CLOSE4 

1300  GOT 0520 


Dabei  wird  jede  Stackän¬ 
derung  angezeigt. 

Es  können  alle  Sprungbe¬ 
fehle  verfolgt  werden,  sogar 
solche,  die  sich  auf  eine  indi¬ 
rekte  Adressierung  bezie¬ 
hen.  Als  Beispiel  hierfür 
kann  das  Disassembler-Pro¬ 
tokoll  der  Abfrage  der  Stop- 
Taste  dienen  (Bild  2). 

In  der  Zeile  1  ist  der  Befehl 
JMP  ($0328)  gefunden  wor¬ 
den,  jetzt  wird  der  Inhalt  der 
Speicherstelle  $0328  und 
$0329  ausgelesen  und  die 
Sprungadresse  errechnet. 
Dann  erfolgt  ein  Speicher¬ 
test  an  der  errechneten 
Sprungadresse,  und  erst, 
wenn  dieser  Test  positiv  ver¬ 
läuft,  wird  ab  dieser  Adresse 
weiter  disassembliert.  Ver¬ 
läuft  der  Test  jedoch  negativ, 
erfolgt  ein  »LOGIC  FLOW 
ERROR«,  und  es  wird  zum 


100 

_ 

250 

260 

- 

290 

300 

- 

330 

360 

- 

510 

320 

- 

550 

560 

- 

620 

630 

- 

ß70 

e80 

— 

970 

980 

- 

1040 

1030 

- 

1080 

1090 

- 

1170 

1180 

- 

1200 

1210 

- 

1250 

1260 

- 

1300 

FroSrammstart  und  Tabetleninitialisierun9 
Umrechnung  Hex*  in  Dezimal 
Umrechnung  Dezimal  in  Hex* 

DflTfl-St*tements  mit  den  6502-Mnemonics- 

Eingabe  der  Startadres.se 

Abfrage  auf  Druck er ausSabe 

Disassemblei — Schleife 

BRflNCH-Bef  eh  t  e 

Eingabe  <V)es,  <N)o,  e<X)it 

RTS-Bef ehl  mit  Stack -Abfrage 

mit  Stack -ErhoehunS 
absolut 
indirekt 


JSR-Befehl 
JMP-Befehl 
JMP-Bef  ehl 
Ende 


Die  wichtigsten 
Programmteile  vom 
»Logic  Disassembler« 


Listing  zum  »Logic  Disassembler« 
(Schluß) 


Ende  der  Disassemblierung 
gesprungen. 

Das  Programm  »Logic-Dis- 
assembler«  ist  in  der  vorlie¬ 
genden  Form  für  den  VC  20 
geschrieben,  es  ist  jedoch 
nach  Änderung  der  Zeilen 
100  und  530  (die  POKE-Be- 
fehle  ändern  lediglich  die 
Farben  des  Bildschirms)  so¬ 
fort  auf  dem  Commodore  64 
und  den  anderen  CBM- 
Computern  lauffähig. 

(Fred  Hammer) 
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Mit  den  »synthetischen  Steuerzeichen«  stehen  Ihnen  Möglichkeiten  offen,  die  Sie  bisher 


Nach  dem  Einschalten  des 
VC  20  oder  des  C  64  und 
der  »READY«-Meldung  des 
Computers  kann  man  sich 
nach  Herzenslust  auf  dem 
Bildschirm  austoben  —  zu¬ 
nächst  ohne  Programm.  Sie 
können  vorab  Texte  gestal¬ 
ten,  Grafiken  entwerfen,  da¬ 
bei  die  Farben  wechseln, 
hier  Zeichen  ergänzen  und 
da  Stellen  abändern.  Kom¬ 
fortabel  wird  dieses  Auste¬ 
sten  der  Möglichkeiten  auf 
der  »elektronischen  Tafel« 
jedoch  erst  durch  die  Cur¬ 
sor-Steuertasten  CLR/ 
HOME,  INST/DEL,  RVS 
ON/OFF  sowie  durch  die 
Farbwahltasten.  Man  er¬ 
reicht  damit  ein  hohes  Maß 
an  Flexibilität  im  Ansteuern 
jeder  beliebigen  Bild¬ 
schirmstelle. 

Schreibt  man  nun  unverse¬ 
hens  ein  Anführungszeichen 
(engl.:  quote)  auf  den  Schirm, 
so  verhält  sich  der  Computer 
plötzlich  anders:  die  Cursor- 
Tasten  wirken  nicht  mehr  — 
man  kommt  mit  ihnen  nicht 
mehr  aus  der  Zeile  heraus. 
Auch  die  Farbumschaltung 
mißlingt,  das  Bildschirmlö¬ 
schen  mit  CLR/HOME  ver¬ 
sagt,  lediglich  DEL  funktio¬ 
niert  noch.  Und  dies  alles  in 
voller  Absicht!  Warum?  Statt 
der  Ausführung  der  Steuer¬ 
befehle  zieht  es  der  Compu¬ 
ter  vor,  sich  die  Anweisun¬ 
gen  in  Form  reverser  Steuer¬ 
zeichen  zu  »merken«.  Wozu? 
Nun,  um  Steuerbefehle  die¬ 
ser  Art  programmierbar  zu 
machen.  (Man  stelle  sich  nur 
einmal  vor,  der  Cursor  sei 
nicht  per  Software  steuer¬ 
bar.  Verfolgen  wir  diesen 
Gedanken  lieber  nicht  wei¬ 
ter.)  Zurück  zum  Thema: 
Nach  dem  ersten  Anfüh¬ 
rungszeichen  befindet  sich 
der  Computer  offenbar  in  ei¬ 
nem  anderen  Verarbei¬ 
tungsmodus,  genannt  Quote- 
Modus,  in  dem  er  (mit  Aus¬ 
nahme  von  DEL)  alle  Steuer¬ 
befehle  als  Reverszeichen 
»speichert«  und  damit  zur 
späteren  Ausführung  bereit¬ 
stellt.  Der  Quote-Modus  wird 
verlassen,  sobald  das  zweite 
Anführungszeichen  einge¬ 


tippt  oder  die  RETURN-Taste 
betätigt  wird.  Da  die  Steuer¬ 
zeichen  —  eingeschachtelt  in 
Gänsefüßchen  —  vom  Com¬ 
puter  wie  Texte  behandelt 
werden,  können  sie  in  Pro¬ 
grammen  auch  als  solche 
verarbeitet  werden.  Dazu 
stehen  alle  Stringoperatio¬ 
nen  zur  Verfügung,  die  auch 
bei  »normalen«  Texten  ver¬ 
wendet  werden.  Wirkung 
zeigen  Steuerzeichen  je¬ 
doch  erst  dann,  wenn  man 
sie  mittels  PRINT  aktiviert. 
Fazit:  Ein  Basic-Listing  kann 
normalerweise  keine  rever- 
sen  Zeichen  enthalten  —  es 
sei  denn,  es  handelt  sich  um 
Steuerzeichen  in  Strings. 


Steuerbefehle  ohne 
»Gänsefüßchen« 


Wir  haben  uns  als 
Commodore-Anwender  si¬ 
cherlich  schon  längst  an  das 
reverse  Q  für  CURSOR  UP 
oder  an  das  Herzchen  für 
CLR/HOME  gewöhnt.  Doch 
es  geht  auch  anders.  Das 
muß  es  auch,  wenn  der 
Drucker  zum  Beispiel  keine 
Steuerzeichen  ausgeben 
kann.  In  diesem  Fall  bedient 
man  sich  der  CHR$- 
Funktion,  die  durch  die  Be¬ 
fehlsfolge 
PRINT  CHR$(X) 
aktiviert  wird.  Mit  X  =  147 
wird  beispielsweise  eben¬ 
falls  der  Bildschirm  ge¬ 
löscht.  Wie  kommt  das?  Tip¬ 
pen  Sie  bitte  ein: 

PRINT  ASC(’ 1  (CLR/HOME) 1  ’) 

Eitte  tippen  Sie  die  Aus¬ 
drücke,  die  in  den  ge¬ 
schweiften  Klammern  ste¬ 
hen,  nicht  als  Buchstabenfol¬ 
ge  ein,  sondern  zum  Beispiel 
für  PRINT  ASC  ("(CLR/ 
HOME)")  nach  dem  ersten 
Gänsefüßchen  die  Con¬ 
trol-Taste  und  dann  gleich¬ 
zeitig  die  CLR/HOME-Ta- 
ste.  Verfahren  Sie  bei  den 
folgenden  Beispielen  dem¬ 
entsprechend. 

Nach  erfolgtem  RETURN 
lesen  Sie:  147.  Das  reverse 
Herzchen  wird  vom  Compu¬ 


ter  also  als  Zeichen  interpre¬ 
tiert,  das  den  ASCII-  bezie¬ 
hungsweise  CHR$-Code  147 
trägt.  Ein  weiteres  Beispiel: 
Die  Zeilen 

PRINT  "(/RV  ONjTEST" 
und 

PRINT  CHR$(18)"TEST" 
bewirken  dasselbe,  weil 
PRINT  ASC("(CTRL  RVS 
ON)") 

zeigt,  daß  der  CHRS-Code 
des  re versen  R  eben  18  ist. 

Ausgehend  von  der  Tatsa¬ 
che,  daß  jedem  Steuerzei¬ 
chen  ein  bestimmter  Code  in 
der  CHR$-Liste  (siehe  Hand¬ 
buch)  zugeordnet  ist,  wurde 
die  Idee  geboren,  daß  diese 
Zuordnung  —  um  es  mathe¬ 
matisch  auszudrücken  — 
umkehrbar  eindeutig  sein 
müsse.  Das  heißt,  zu  jedem 
Steuerbefehl  müßte  auch  ein 
entsprechendes  reverses 
Steuerzeichen  gehören,  das 
denselben  Zweck  erfüllt. 

N'',  gibt  es  zum  Beispiel 
die  Möglichkeit,  über 
PRINT  CHR$(14) 
auf  Kleinbuchstaben  umzu¬ 
schalten.  Gibt  es  dafür  auch 
ein  Steuerzeichen?  Auf  kon¬ 
ventionellem  Weg  hieße  die 
Antwort  klipp  und  klar:  nein. 
Aber  ... 

Zu  Beginn  war  alles  nur 
Spielerei,  bis  sich  die  er¬ 
staunlichen  Möglichkeiten 
und  Anwendungen  häuften. 
Deshalb:  spielen  Sie  nun  bit¬ 
te  mit! 

Steuerzeichen  auf 
illegalem  Weg 

Bevor  wir  das  große  Ge¬ 
heimnis  lüften,  wollen  wir 
erst  einmal  an  ganz  und  gar 
legalen  Steuerzeichen  üben, 
wie  man  sie  illegal  eingibt. 
Halten  Sie  sich  bitte  zunächst 
streng  an  das  angegebene 
Rezept,  auch  wenn  es  noch 
andere  Eingabeformen  gibt. 
Das  gilt  auch  für  die  späte¬ 
ren  Beispiele.  Unsere  erste 
Übung  soll  darin  bestehen, 
den  Bildschirm  ohne 
CHR$(147)  und  ohne  die  Ta¬ 
ste  CLR/HOME  zu  löschen 
—  im  Direktmodus,  versteht 


sich.  Dazu  geben  Sie  bitte 
hintereinander  in  einer  Zeile 
ein: 

1.  Schritt: 

PRINT 

2.  Schritt: 

Erstes  Anführungszeichen 
setzen.  Jetzt  befinden  wir  uns 
im  Quote-Modus,  den  wir  so¬ 
fort  wieder  verlassen  wol¬ 
len.  Daher: 

3.  Schritt: 

Zweites  Anführungszei¬ 
chen  setzen. 

4.  Schritt: 

Mit  DEL  eine  Stelle  zurück¬ 
gehen.  Dabei  wird  das  zwei¬ 
te  Anführungszeichen  ge¬ 
löscht.  Da  wir  uns  nicht  mehr 
im  Quote-Modus  befinden, 
reagiert  der  Computer  auf 
Steuerbefehle. 

5.  Schritt: 

Mit  CTRL  RVS  ON  auf  Re¬ 
vers-Modus  schalten.  Das  ist 
notwendig,  da  wir  ja  ein  re¬ 
verses  Steuerzeichen  quasi 
künstlich  erzeugen  wollen! 

6.  Schritt: 

SHIFT  S  eingeben.  Beim 
geSHIFTeten  S  bekommen 
wir  eines  der  S-Taste  zuge¬ 
ordneten  Grafikzeichen,  in 
diesem  Fall  das  gewünschte 
Herzchen.  Nun  verlassen 
wir  den  Revers-Modus: 

7.  Schritt: 

CTRL  RVS  OFF.  Wenn  Sie 
wollen,  können  Sie  noch  ein 
Anführungszeichen  zur  opti¬ 
schen  Abrundung  anhän- 
gen. 

Was  jetzt  auf  dem  Bild¬ 
schirm  steht,  sieht  so  aus,  als 
hätten  wir  nie  den  legalen 
Pfad  verlassen,  als  hätten 
wir  immer  mit  der 
CLR/HOME-Taste  gearbei¬ 
tet.  Dieses  Steuerzeichen  ist 
jedoch  künstlich  entstanden 
—  wird  es  auch  wirken  wie 
ein  »echtes«?  Das  Drücken 
der  RETURN-Taste  über¬ 
zeugt  uns  schnell  davon,  daß 
der  Computer  uns  diese  um¬ 
ständliche  Manipulation 
nicht  übel  genommen  hat:  es 
funktioniert  tatsächlich! 

Bedenken  Sie  bei  der  Ein¬ 
gabe,  daß  nur  zwei  Anfüh¬ 
rungszeichen  auf  dem 
Schirm  erscheinen,  obwohl 
insgesamt  drei  eingegeben 
wurden.  Der  Computer  be- 


114  Q3S? 


Ausgabe  6/Juni  1984 

64er-online.de 


nicht  für  möglich  gehalten  haben.  Ein  neuartiger  Listschutz  ist  dabei  nur  ein  Teilaspekt. 


findet  sich  also  nach  dem 
dritten  Gänsefüßchen  wie¬ 
der  im  Quote-Modus. 

An  der  Stelle,  an  der  so¬ 
eben  mit  SHIFT  S  das  Steuer¬ 
zeichen  für  CLR/HOME  ge¬ 
neriert  wurde,  kann  nun  je¬ 
des  beliebige  reverse  Zei¬ 
chen  erzeugt  werden.  Dieje¬ 
nigen  davon,  die  auch  eine 
Steuerfunktion  ausüben, 
aber  nicht  auf  normalem  We¬ 
ge  über  direkte  Tasten¬ 
drücke  erzeugt  werden  kön¬ 
nen,  wollen  wir  im  folgenden 
»synthetische  Steuerzei¬ 

chen«  nennen. 


Die  Synthetischen 
kommen 

Wenn  es — und  das  war  die 
Frage,  die  alles  ins  Rollen 
brachte  —  anstelle  der  Um¬ 
schaltung  auf  Kleinbuchsta¬ 
ben  mit  CHR$(14)  ein  äquiva¬ 
lentes  Steuerzeichen  gibt, 
dann  muß  es  zwischem  dem 
reversen  E  für  WHT  (Code  5) 
und  dem  reversen  Q  für 
CURSOR  DOWN  (Code  17) 
zu  suchen  sein.  Numeriert 
man  das  Alphabet  entspre¬ 
chend  durch,  so  findet  man 
den  Buchstaben  N  unter  der 
Codezahl  14.  Das  reverse  N 
müßte  demnach  das  Steuer¬ 
zeichen  für  die  Umschaltung 
auf  Kleinbuchstaben  sein. 
Probieren  wir  es  aus: 

?  ”  "  DEL  RVS  ON 

N  RVS  OFF  RETURN 


Es  klappt!  Der  Computer 
schluckt  diesen  ungewöhnli¬ 
chen  Befehl  und  führt  ihn 
aus. 

Dieser  Erfolg  motivierte 
eine  Suche  nach  allen  ver¬ 
fügbaren  synthetischen 
Steuerzeichen;  die  Ausbeute 
fiel  jedoch  zunächst  recht 
mager  aus.  Die  nachfolgen¬ 
de  Tabelle  zeigt  Ihnen  die 
synthetischen  Zeichen  und 
ihre  Wirkungen  bei  Bild¬ 
schirmausgaben  (beim 
Drucker  sieht’s  etwas  anders 
aus  —  dazu  aber  später 
mehr). 


Steuerzeichen  CHR$-Code 

Wirkung 

H 

8 

Die  manuelle  Umschaltung 
zwischen  Groß-  und  Klein¬ 
buchstaben  mit  Hilfe  der 
COMMODORE-  und  SHIFT- 
Tasten  wird  gesperrt. 

I 

9 

Die  obige  Sperre  wird  wie¬ 
der  gelöst. 

M 

13 

RETURN.  Alles,  was  nach 
dem  reversen  M  in  der  Zeüe 
steht,  wird  nicht  mehr  ge¬ 
druckt.  Leider  ist  eine  echte 
Simulation  der  RETURN-Taste 
zum  Ändern  von  Basic-Zeilen 
unter  Programmkontrolle 
nicht  möglich. 

N 

14 

Umschalten  auf  Kleinbuchsta¬ 
ben. 

T 

20 

DEL.  Hiermit  können  Sie  Tei¬ 
le  oder  komplette  Programm- 
zeüen  optisch  verschwinden 
lassen.  Dieses  Steuerzeichen 
wirkt  auch  beim  Listen  eines 
Programms  auf  dem  Schirm. 
Anwendung:  partieller  List¬ 
schutz. 

SHIFT  M 

141 

SHIFT  RETURN.  Das  Super- 
Zeicher.!  ^ehr  dazu  im  Text. 

SHIFT  N 

142 

Umschaiien  auf  Großbuchsta¬ 
ben. 

SHIFT  T 

148 

INS.  Kann  zum  Ändern  von 

Text  an  bereits  gedruckten 

Text  benutzt  werden.  Bei¬ 
spiel:  ?  "(SHIFT  TJX”  liefert 
ein  X  auf  dem  Schirm,  bei 
mehrfacher  Abarbeitung 
wird  stets  ein  weiteres  X  an 
die  bereits  vorhandenen  an¬ 
gehängt. 

Es  sei  nochmals  darauf  hin¬ 
gewiesen,  daß  die  Zeichen 
dieser  Tabelle  als  reverse 
Zeichen  nach  obigem  Ver¬ 
fahren  erzeugt  werden  müs¬ 
sen  (Ausnahmen:  T  für  DEL 
und  SHIFT  T  für  INS  können 
auch  direkt  erzeugt  werden; 
sie  sind  im  eigentlichen  Sinn 
keine  synthetischen  Steuer¬ 
zeichen.) 

Auch  wenn  die  Eingabe 
der  synthetischen  Steuerzei¬ 
chen  umständlich  erscheint, 
man  wird  sich  schnell  daran 
gewöhnt  haben  und  auf  ihre 
Vorteile  nicht  mehr  verzich¬ 
ten  wollen  —  nicht  nur,  weil 
sie  gegenüber  der  CHR$- 
Funktion  Speicherplatz  spa¬ 
ren. 

So  unscheinbar  und  un¬ 
wichtig  das  SHIFT  RETURN 
ist,  so  gewaltig  sind  die  Mög¬ 
lichkeiten,  die  uns  das  zuge¬ 


hörige  synthetische  Steuer¬ 
zeichen  eröffnet.  Es  handelt 
sich  um  das  reverse,  geshif- 
tete  M  (Code  141). 


Das  Super- 
Steuerzeichen 


Gibt  man  ?  ”  ”{DEL)(TEST 
(CTRL  RVS  ON)  [SHIFT  M) 
[CTRL  RVS  OFFjLAUF" 

ein,  so  zeigt  sich  nach  dem 
Drücken  der  RETURN-Taste, 
daß  der  Computer  nach  dem 
Teilstring  »TEST«  einen  Wa¬ 
genrücklauf  (carriage  re- 
turn)  mit  Zeilenvorschub  (li- 
ne  feed)  durchführt  und 
»LAUF«  direkt  darunter  aus¬ 
gibt.  Genau  dieses  Verhal¬ 
ten  erwartet  man  von  SHIFT 
RETURN.  [SHIFT  M]  kann  je¬ 
doch  mehr  —  viel  mehr!  Das 


nächste  Beispiel  soll  es  be¬ 
weisen: 

10 ?  ""[DEL]  TEST  [CRTL  RVS 
ON]  [SHIFT  M]  R  [CRTL  RVS 
OFF]  LAUF” 

Geben  Sie  bitte  dieses  ein¬ 
zeilige  Programm  ein  und 
starten  Sie  es.  Wie  erwartet 
erscheint  »TEST«  und  darun¬ 
ter  revers  »LAUF«.  Nun  listen 
Sie  bitte  dieses  Programm. 
Erstaunt?  Das  ist  tatsächlich 
neu!  Das  Steuerzeichen  für 
die  Umschaltung  in  den 
Revers-Modus  erscheint 
nicht  im  Listing,  sondern 
wird  entgegen  aller  bisheri¬ 
gen  Kenntnisse  ausgeführt. 
»LAUF«  wird  im  Listing  revers 
ausgegeben.  Durch  das 

SHIFT-RETURN-Zeichen 
wird  der  Basic-Interpreter 
offenbar  veranlaßt,  nachge¬ 
stellte  Steuerzeichen  auch 
im  Listing  wirksam  werden 
zu  lassen.  Es  zeigt  sich,  daß 
diese  Schlüsselfunktion  alle 
Steuerbefehle,  seien  es 
Farbumschaltungen  oder 
Cursor-Bewegungen,  akti¬ 
viert.  Ungeahnte  Möglich¬ 
keiten  eröffnen  sich  nun  zur 
optischen  Aufbereitung,  das 
heißt  Strukturierung  und  Ge¬ 
staltung  von  Listings  auf  dem 
Büdschirm.  Einige  Beispiele 
sollen  dies  verdeutlichen. 
Beispiel  1: 

Reverse  REM-Zeile  ohne 
sichtbares  REM-Statement 
und  ohne  Zeilennummer 

10  REM  ”  "(DEL)  [CRTL  RVS  ON) 
(SHIFT  Ml  (SHIFT  0}  R  (CRTL  RVS 
OFF]  TESTLAUF 
20  FOR  1  =  1  TO  10 
30  PRINT’ ’TESTLAUF”:NEXT 

Die  Zeilen  20  und  30  sind 
Beiwerk,  damit  die  REM- 
Zeile  nicht  so  allein  dasteht. 
Listen  Sie  das  Programm  bit¬ 
te.  Sie  sehen  die  reverse 
Überschrift  »TESTLAUF«  oh¬ 
ne  REM  und  ohne  Zeilen¬ 
nummer  und  darunter  wie 
gewohnt  die  Programmzei¬ 
len  20  und  30.  Wie  funktio¬ 
niert  dieser  Trick?  Das  re¬ 
verse  (SHIFT  M]  bewirkt  ei¬ 
nen  Sprung  zum  Anfang  der 
nächsten  Zeüe  und  gibt  die 
nachfolgenden  Steuerzei¬ 
chen  zur  Ausführung  frei.  Mit 
dem  reversen  (SHIFT  Q] 
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geht  der  Cursor  eine  Zeile 
nach  oben,  also  auf  »1«  der 
Zeilennummer  10.  Reverses 
R  schaltet  auf  reverse  Zei¬ 
chen  um,  in  denen  dann  der 
REM-Text  »TESTLAUF«  aus¬ 
gegeben  wird.  Dabei  über¬ 
schreibt  der  Computer  die 
Zeilennummer  sowie  das 
REM-Statement.  Das  alles 
vollzieht  sich  so  schnell,  daß 
es  sich  der  Beobachtung  ent¬ 
zieht.  Der  Anwender  sieht 
nur  noch  die  reverse  Über¬ 
schrift  und  kann  demzufolge 
an  dieser  Zeile  auch  nichts 
mehr  ändern. 

Sollten  Sie  die  Original- 
REM-Zeile  noch  auf  dem 
Bildschirm  haben,  so  hän¬ 
gen  Sie  an  das  »F«  von  »TEST¬ 
LAUF«  noch  das  Steuerzei¬ 
chen  für  CURSOR  DOWN 
an.  Sie  werden  sehen,  daß 
beim  Listen  sogar  eine  Leer¬ 
zeile  zwischen  Überschrift 
und  Programm  entsteht. 
Selbstverständlich  können 
derartige  REM-Zeilen  belie¬ 
big  im  Programm  verstreut 
sein.  Wirkung:  Im  Pro¬ 
grammlauf  werden  unter 
der  reversen  Überschrift 
»Quadratzahlen«  die  Ergeb¬ 
nisse  ausgegeben,  während 
beim  Listen  des  Programms 
der  PRINT-Befehl  verschwie¬ 
gen  wird  und  man  eine 


REM-Zeile  wie  in  Beispiel 
1  vermutet.  Damit  trägt  eine 
PRINT-Zeile  zur  optischen 
Strukturierung  eines  Listings 
bei  —  ein  Effekt,  der  bislang 
in  dieser  Form  unmöglich 
schien. 

Beispiel  2.  Farbige  REM- 
Zeile  (ändern  Sie  nur  Zeile 
10). 

Beispiel  3.  Wirkung:  Grü¬ 
ne  Überschrift  ohne  Zeilen¬ 
nummer  und  ohne  REM,  gel¬ 
bes  Listing. 

Beispiel  4.  Wirkung:  Die 
bekannten  Herzchen  sorgen 
nach  dem  Listen  jeder  Zeile 
für  ein  Löschen  des  Bild¬ 
schirms,  so  daß  die  beiden 
Programmzeilen  weder  ein¬ 
zeln  noch  insgesamt  sichtbar 
bleiben  und  die  Codezahlen 
A  und  B  dem  Anwender  vor¬ 
enthalten  werden. 

Mit  diesen  Beispielen  sol¬ 
len  Sie,  die  Leser  vom  64’er, 
nun  an  Ihre  Computer  ent¬ 
lassen  werden.  Sie  werden 
sicherlich  Spaß  an  der  Viel¬ 
seitigkeit  dieser  neuen  Me¬ 
thode  gewinnen  und  eine 
Vielzahl  von  Anwendungen 
austüfteln. 

In  der  nächsten  Folge  er¬ 
fahren  Sie  dann  a'les  über 
synthetische  Steuerzeichen 
für  den  Drucker. 

Qürgen  Wagner) 


Beispiel  2: 

10  REM  ”  ”[DEL)  (CRTL  RVS  ON] 
RVS  OFF)  TESTLAUF  [CRTL  RVS 


[SHIFT  M)  [SHIFT  Q)  (IJ  [CRTL 
ON]  [SHIFT  t rj  [CRTL  RVS  OFF) 


Beispiel  3: 

Listschutz 

10  A  =  4711  :  REM  ”  "[DEL)  [CRTL  RVS  ON)  (SHIFT  M  )  (SHIFT  S) 
20  B  =  0815  :  REM  ”  ”[DEL)(CRTL  RVS  ON)  (SHIFT  Mf  (SHIFT  S) 
reverses  SHIFT  M  für  SHIFT  RETURN 
reverses  SHIFT  S  für  CLR/HOME 


Beispiel  4: 

REM-Ersatz 

10  PRINT  ”  ”  (DEL)  (CRTL  RVS  ON)  [SHIFT  M)  (SHIFT  S) 

R  [CRTL  RVS  OFF)  QUADRATZAHLEN 

reverses  SHIFT  M  für  SHIFT  RETURN 

reverses  SHIFT  S  für  CLR/HOME 

reverses  R  für  RVS  ON 

20  FOR  1  =  1  TO  10 

30  PRINT  1,1*1  :  NEXT 


Einige  Beispiele  für  die  synthetischen  Steuerzeichen 


Reset  für  den  UC  SO 

Wem  ist  das  noch  nicht  passiert? 
Ein  Maschinenprogramm,  ein  paar 
P0KES  und  der  Computer  hat  sich 
aufgehängt. 

W! 


ar  das  Programm  vor¬ 
her  nicht  abgespei¬ 
chert,  so  ist  man  verraten 
und  verkauft,  da  der  VC 
20  keine  eingebaute 
Reset-Taste  hat.  Mit  einem 
Minimum  an  handwerkli¬ 
chem  Geschick  kann  man 
hier  jedoch  leicht  Abhilfe 
schaffen.  Auf  Seite  152 
des  VC  20-Handbuches 
ist  der  User-Port  be¬ 
schrieben.  Uns  interes¬ 
sieren  Pin  1  (Ground)  und 
Pin  3  (Reset).  Wenn  man 
diese  beiden  Pins  kurz¬ 
schließt,  wird  ein  Kaltstart 
ausgeführt,  genau  wie  bei 
SYS  64802.  Da  der  Strom 
jtAtvht  abgeschaltet  wur¬ 
de,  sind  die  Speicherin¬ 
halte  erhalten  geblieben. 
Basic-Programme  schei¬ 
nen  zwar  verloren  gegan¬ 
gen  zu  sein,  können  aber 
durch  »Verbiegen«  der 
entsprechenden  Zeiger 
wieder  gerettet  werden. 

Die  eleganteste  Lösung 
eines  Kurzschlusses  von 
Pin  1  und  Pin  3  ist  der  Ein¬ 
bau  eines  Tasters.  Wenn 


Sie  den  VC  20  öffnen  (bitte 
nicht  während  der  Garan¬ 
tiezeit),  sieht  der  User- 
Port  wie  im  Bild  darge¬ 
stellt  aus. 

Löten  Sie  zwei  isolierte 
Drähte  an  den  eingege¬ 
benen  Punkten  an  und 
verbinden  Sie  sie  mit  dem 
Taster.  Den  Taster  kön¬ 
nen  Sie  im  Gehäuse  ein¬ 
bauen,  zum  Beispiel 
rechts  oberhalb  der  Ta¬ 
statur,  oder  Sie  legen  die 
Drähte  nach  außen  und 
lassen  den  Taster  aus 
dem  User-Port  hängen. 

Wenn  Sie  Ihren  Compu¬ 
ter  nicht  öffnen  möchten 
oder  sich  die  Lötarbeiten 
nicht  Zutrauen,  können 
Sie  sich  einen  Stecker  für 
den  User-Port  besorgen 
und  dort  die  beiden  Dräh¬ 
te  zum  Taster  befestigen. 
Nach  diesem  kleinen  Ein¬ 
griff  genügt  ein  kurzer  Ta¬ 
stendruck,  und  der  VC 
20/C  64  ist  wieder  be¬ 
triebsbereit. 


Uörg  Grohne) 


Pin  3 


hier  löten  hier  löten 

Taster 


User-Port  von  oben 
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Dazu  muß  man  wissen,  daß 
das  Betriebssystem  nach 
Ausführung  der  Loadroutine 
($FFD5)  indirekt  in  den 
Basic-Warmstart  springt 
($0302/$0303).  Also  wird  die¬ 
ser  Vektor  auf  die  Startadres¬ 
se  des  Ladeprogramms  ge¬ 
setzt.  Um  auf  der  Diskette 
nur  einen  Block  für  den  La¬ 
der  zu  belegen,  wählt  man 
für  ihn  den  Bereich,  der  für 
Sprite  11  reserviert  ist 
($02C0-$02FE). 

Dieses  einfache  Maschi¬ 
nenprogramm  erfüllt  die  ge¬ 
forderten  Bedingungen  als 
Lader  für  das  Programm 
»HESMON«  mit  Start  $Cff8. 
Der  Anwender  muß  für  ein 
anderes  Hauptprogramm 
nur  die  Länge  des  Namens 
ändern  (S02C1);  den  Zeiger 
auf  den  Filenamen  ($02Cf/ 
$02D2),  den  Namen  und  die 
Adresse  des  Hauptpro¬ 
gramms  ($02D7/$02DC  & 
$02E7/$02E8).  Dann  wird 
der  Bereich  von  $02C0  bis 
$0303  vom  Monitor  aus  abge¬ 
speichert:  »S”LOADER”08 
02C0  0303«. 

Zum  Test  des  Programms 
vollziehe  man  nun  einen  Kalt¬ 
start,  und  nach  »LOAD”LOA- 
DER",8,1«  erscheint  SEAR- 
CHING  FOR  LOADER,  LOA- 
DING,  SEARCHING  FOR 
HESMON,  LOADING,  dann 
erfolgt  der  Start  des  Pro¬ 
gramms  »HESMON«. 
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Der  Teil  des  oben  genann¬ 
ten  Laders,  der  als  Vorberei¬ 
tung  der  Loadroutine  die 
Zeropage  beschreibt,  kann 
auch  durch  die  Routinen 
$FFBA  und  $FFBD  ersetzt 
worden. 

Der  Basic-Lader  POKEd 
das  Maschinenprogramm 
direkt  in  die  zugehörigen 
Speicherzellen.  Achtung: 
Nach  Ablauf  des  Basic- 
Laders  startet  das  Maschi¬ 
nencode-Programm  direkt. 
Das  Programm  wandelt  die 
Hex-DATAs  in  Dezimalzahlen 
um  und  POKEd  diese.  Das 
Programm,  das  geladen 
werden  soll,  bestimmt  man 
durch  Umändern  der  jewei¬ 
ligen  Speicherzellen,  wie 
oben  beschrieben. 

(Martin  Heinz  und 
Andreas  von  Lepel) 
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Tips  &  Tricks 


VC  20 


Nützliche  ROM-  und  RAM-Adressen  für  den  VC  20  wurden  schon  mehrfach 
veröffentlicht.  Dieser  Artikel  bringt  nun  Beispiele,  wie  diese  auch  sinnvoll  einge¬ 
setzt  weiden  können.  Denn  was  nützt  das  beste  ROM-Adressenlisting  mit  den 
tollsten  Erläuterungen,  wenn  man  keinen  Anwendungszweck  findet? 


Beginnen  wir  mit  der  Ton¬ 
erzeugung.  Mancher  VC 
20-Besitzer  hat  das  mögli¬ 
cherweise  schon  so  oft  gele¬ 
sen.  daß  er  in  der  Nacht  von 
den  Adressen  träumt.  Tonge¬ 
nerator  1  bis  3:  36874  bis 
36876.  Generator  für  weißes 
Rauschen:  36877,  Lautstärke: 
36878.  Doch  die  wenigsten 
wissen,  daß  man  mit  der 
Lautstärke  auch  den  Klang 
eines  Tones  entscheidend 
beeinflussen  kann,  indem 
man  ihn  langsam  auf-  oder 
abschwellen  läßt. 

In  der  Praxis  sieht  das  so 
aus,  daß  man  einen  bestimm¬ 
ten  Ton  wählt,  dann  die  Laut¬ 
stärke  langsam  aufdreht,  ei¬ 
ne  Weile  hält  und  schließlich 
wieder  langsam  abdreht. 
Wenn  man  den  Ton  sofort  voll 
aufdreht  und  gleich  danach 
langsam  abschwellen  läßt, 
klingt  es,  als  ob  man  auf  ei¬ 
nem  Instrument  einen  Ton 
anschlägt,  der  dann  langsam 
ausklingt.  Listing  1  zeigt  ein 
Beispielprogramm  mit  einer 
bekannten  Melodie. 

Die  bekannteste  Nutzungs¬ 
möglichkeit  der  Lautstärke 
dürfte  wohl  die  Explosion 
sein.  Man  wählt  ein  tiefes 
Rauschen  und  läßt  es  lang¬ 
sam  leiser  werden.  Da3  so 
entstehende  Explosionsge¬ 
räusch  kann  sehr  gut  für 
Spiele  verwendet  werden. 
Das  kleine  Programm  in  Li¬ 
sting  2  erzeugt  zum  Beispiel 
bei  jedem  Tastendruck  ein 
anderes  Explosionsge¬ 
räusch. 


Farbige  Anleitung 


Da  wir  gerade  von  Spielen 
sprechen:  Zu  einem  Spiel  ge¬ 
hört  auch  eine  Spielanlei¬ 
tung  (auf  dem  Bildschirm). 
Und  wenn  man  da  einmal  et- 
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was  ganz  besonderes  haben 
will,  gibt  es  die  Möglichkeit, 
innerhalb  eines  Buchsta¬ 
bens  mehrere  Farben  zu  ver¬ 
wenden.  Wie  geht  das?  In 
der  Speicheradresse  646 
steht  die  momentan  benutzte 
Farbe.  Zulässig  sind  Werte 
von  0  bis  7.  Addiert  man  zu  ei¬ 
nem  dieser  Werte  8,  so  wird 
auf  Vierfarbenmodus  um  ge¬ 
schaltet  und  es  entstehen 
bunte,  verzerrte  Buchstaben. 

Diese  lassen  sich  zwar 
schlechter  lesen,  ergeben 
aber  zum  Beispiel  bei  Spiel¬ 
programmen  einen  interes¬ 
santen  Effekt  (für  Textverar¬ 
beitung  sind  sie  weniger  ge¬ 
eignet). 


Save-Schutz 


Die  Buchstaben  setzen 
sich  aus  vier  Farben  zusam¬ 
men:  Aus  Hintergrundfarbe, 
Rahmenfarbe,  Hilfsfarbe 
und  der  gewählten  Zeichen¬ 
farbe  aus  der  Adresse  646. 
Die  Hilfsfarbe  wird  mit  den 
Bits  4  bis  7  aus  36878  defi¬ 
niert.  Es  ist  unbedingt  not¬ 
wendig,  daß  die  Hinter¬ 
grundfarbe  nur  einmal  da¬ 
bei  vorkommt.  Ist  nämlich  ei¬ 
ne  dieser  Farben  gleich  der 
Hintergrundfarbe,  so  entste¬ 
hen  Lücken  in  den  Buchsta¬ 
ben,  und  der  Text  wird  so 
stark  verstümmelt,  daß  er 
sich  nicht  mehr  lesen  läßt. 
Das  Rücksetzen  erfolgt  ein¬ 
fach  durch  Umschalten  der 
Zeichenfarbe  mit  der  CTRL- 
Taste. 

Doch  nun  zu  einem  ande¬ 
ren  Thema:  Im  VC  20  gibt  es 
einen  Vektor,  der  jedesmal 
bei  der  Ausführung  des 
SAVE-Befehls  benutzt  wird. 
Er  steht  in  818/819  und  zeigt 
auf  die  SÄVE-Routine  des  VC 


20.  Durch  Ändern  dieses 
Vektors  kann  man  die  Aus¬ 
führung  des  SAVE-Befehls 
und  damit  eventuell  das  un¬ 
erlaubte  Kopieren  eines  Pro¬ 
gramms,  verhindern.  Zum 
Beispiel  kann  dieser  Vektor 
durch  POKE  818,116:POKE 
819,196  auf  $C474  gesetzt 
werden.  Nach  Eingabe  des 
SAVE-Befehls  erscheint 
dann  immer  direkt  READY, 
ohne  daß  etwas  passiert.  Ei¬ 
ne  andere  Möglichkeit  ist,  ei¬ 
ne  Fehlermeldung  auszuge¬ 
ben.  Dies  geschieht  durch 
POKE  818,53:POKE  819,196 
wt  rch  der  Zeiger  auf 
$C435  gesetzt  wird.  Nach 
der  Eingabe  von  SAVE  er¬ 
scheint  »OUT  OF  MEMORY 
ERROR«. 

Doch  die  wirksamste  Mög¬ 
lichkeit  wird  wohl  die  sein, 
das  Programm  durch  den 
SÄVE-Befehl  zu  löschen,  in¬ 
dem  man  den  SAVE-Vektor 
auf  $FD22  setzt.  Dies  ge¬ 
schieht  durch  POKE  818,34: 
POKE  819,253.  Nach  Eingabe 
des  SAVE-Befehls  erscheint 
die  Einschaltmeldung,  und 
das  Programm  ist  gelöscht. 

Leider  ist  es  mit  diesen 
zwei  POKE-Befehlen  nicht 
getan.  Denn  durch  gleichzei¬ 
tiges  Drücken  der  STOP-  und 
RESTORE-Taste  werden  sie 
sofort  wieder  rückgängig 
gemacht.  Es  muß  also  zusätz¬ 
lich  noch  die  RESTORE-Ta¬ 
ste  abgestellt  werden.  Das 
geht  einfach  mit  POKE 
37150,2.  Danach  hat  die 
RESTORE-Taste  keine  Funk¬ 
tion  mehr.  Wenn  nötig,  kann 
sie  durch  POKE  37150,130 
wieder  eingeschaltet  wer¬ 
den.  Dieser  POKE-Befehl 
schreibt  in  das  Interrupt- 
Enable-Register  des  VIA 
6522  #  1  des  VC  20,  der  für 
den  NMI  zuständig  ist. 


Doch  nun  wollen  wir  keine 
Tasten  außer  Betrieb  setzen, 
sondern  welche  abfragen. 
Oft  steht  man  vor  dem  Pro¬ 
blem,  mehrere  Funktionen 
gleichzeitig  zu  steuern.  Lei¬ 
der  kann  man  in  Basic  immer 
nur  eine  Taste  auf  einmal  ab¬ 
fragen,  weitere  gedrückte 
Tasten  werden  normalerwei¬ 
se  nicht  erkannt. 


Zehn  Tasten 
gleichzeitig 
abfragen 

Aber  glücklicherweise 
gibt  es  beim  VC  20  eine  Mög¬ 
lichkeit,  sieben  Tasten  auf 
einmal  abzufragen.  Die  Bits  1 
bis  7  der  Speicherstelle  145 
entsprechen  folgenden  Ta¬ 
sten:  Der  linken  Shift-Taste, 
X,  V,  N,  ?  und  Cursor 
up/down.  Die  Taste  ist  ge¬ 
drückt,  wenn  das  entspre¬ 
chende  Bit  gelöscht  ist. 

Nun  läßt  sich  das  ganze  mit 
der  Speicherzelle  653  noch 
erweitern.  Bit  0  entspricht 
den  Shift-Tasten,  Bit  1  der 
Commodore-Taste  und  Bit  2 
der  CTRL-Taste.  Im  Gegen¬ 
satz  zu  den  sieben  anderen 
Tasten  sind  hier  jedoch  die 
entsprechenden  Bits  bei  Ta¬ 
stendruck  gesetzt. 

Der  Computer  unterschei¬ 
det  übrigens  zwischen  der 
rechten  und  der  linken  Shift- 
Taste.  Mit  der  Abfrage  PEEK 
(145)  AND  2  OR  PEEK  (653) 
AND  1  kann  man  zwischen 
beiden  Shift-Tasten  unter¬ 
scheiden.  Sie  ergibt  norma¬ 
lerweise  2,  beim  Drücken 
der  linken  Shift-Taste  1  und 
beim  Drücken  der  rechten 
Shift-Taste  3.  Shift  lock  ent¬ 
spricht  der  linken  Shift-Taste. 
(Thomas  Gruber/ev) 
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1  REM  TON-DEMO 

2  REM  ======== 

3  REM 

4  REM 

5  DIM  T<5> 

10  FOR  X=1  TO  5-REfiD  T(X>  NEXT 

15  READ  T,  II :  POKE  36873, T<T> : POKE  36376,T<T> 

20  IF  D=-l  THEN  END 

25  FOR  X=15  TO  0  STEP  -1 

30  POKE  36878, X 

35  FOR  Y=1  TO  3*L=NEXT  Y 

40  NEXT  X 

45  GOTO  15 

50  REM 

55  REM 


60  DATA  195,201,207,209,215 
65  DATA  5, 1,3, 1,3, 6, 4, 1,2, 1,2, 6 
70  DATA  1,1, 2, 1,3, 1,4, 1,5, 1,5, 1,5. 6 
75  DATA  5, 1,3, 1,3, 6, 4, 1,2, 1,2, 6 
80  DATA  1,1, 3, 1,5, 1,5, 1,1, 6, 0,1 
85  DATA  2, 1,2, 1,2, 1,2, 1,2, 1,3, 1,4, 6 
90  DATA  3,1,3, 1,3, 1,3, 1,3, 1,4, 1,5, 6 
95  DATA  5, 1,3, 1,3, 6, 4, 1,2, 1,2,6 
100  DATA  1, 1,3, 1,5, 1,5, 1, 1,6 
105  DATA  0,-1 

READY. 


Listing  1.  Ton-Demo 


Tips  &  Tricks 


1  REM  EXPLOSIONEN 

2  REM  =========== 

3  REM 

4  REM 

1 0  0=36877 : L=36878 : X=RND <1 >  * 1 00+ 1 30 
15  FOR  1=15  TO  0  STEP  -1 
20  POKE  G , X+ 1  ''POKE  L,  I 
25  FOR  H=1  TO  240-X : HEXT  D 
30  NEXT  I 

35  POKE  0,0: POKE  L,0 
40  OET  fl$ : IF  R$=""  THEN  40 
45  RUH 


READY. 


Listing  2.  Explosionen 


Veränderungen  am  64-Basic 


Eine  der  merkwürdigsten  Effekte  am  Commodore  64  ist, 
wenn  man  unmittelbar  nach  dem  Einschalten  den  Speicher 
abfragt,  also  eingibt 
PRINT  FRE(O) 

Man  erhält  nämlich  eine  negative  Zahl  als  Antwort.  Man 
kann  dies  korrigieren,  indem  man  bei  einer  negativen  Ant¬ 
wort  den  Wert  65536  addiert,  Im  folgenden  soll  diese  Merk¬ 
würdigkeit  etwas  näher  beleuchtet  und  ein  Weg  zur  Korrek¬ 
tur  dargestellt  werden. 

Die  Funktion  FRE(O)  liefert  den  noch  verfügbaren,  also  frei¬ 
en  Speicher.  Dazu  wird  der  Speicher  aufgeräumt  (Garbage- 
Collection),  das  heißt,  die  nicht  mehr  benötigten  Strings  wer¬ 
den  entfernt  und  der  gesamte  String-Bereich  folglich  geord¬ 
net.  Der  freie  Bereich  ergibt  sich  dann  als:  Untere  Grenze 
der  Strings  minus  obere  Grenze  der  Arrays. 

Der  Inhalt  der  folgenden  Adressen  muß  also  voneinander 
abgezogen  werden 
33/34  Untergrenze  Strings 
31/32  Ende  Arrays 
also 

Inhalt  von  33  minus  Inhalt  von  31 
Ergebnis  nach  63 
Inhalt  von  34  minus  Inhalt  von  32 
Ergebnis  nach  62. 

Das  Ergebnis  ist  also  vom  Typ  INTEGER.  Allerdings  arbei¬ 
tet  der  Interpreter  intern  nicht  mit  Integer-Zahlen,  sondern 
mit  REAL-Zahlen  (Gleitkommazahlen),  das  Ergebnis  muß  al¬ 
so  gewandelt  werden.  Bei  der  Wandlung  wird  ein  Bit  (von  16, 
die  für  die  Darstellung  der  Integer  benötigt  werden)  als  Vor¬ 
zeichen  betrachtet.  Ist  der  Inhalt  von  Zelle  62  größer  oder 
gleich  $80  =  128,  so  wird  die  Zahl  bei  der  Wandlung  als  negati¬ 
ve  Zahl  angesehen.  Der  Inhalt  von  62  wird  dann  größer  oder 
gleich  $80  sein,  wenn  der  freie  Bereich  größer  32767  Byte  ist. 

Aus  diesen  Gründen  taucht  gelegentlich  eine  negative 
Zahl  als  freier  Speicherplatz  auf.  Wie  kann  man  dies  ändern? 
Im  Interpreter  gibt  es  vier  Wandlungsroutinen. 

1)  Wandle  REAL-Zahl  nach  INTEGER. 

Dabei  wird  die  Integer-Zahl  mit  15  Bit  +  1  Bit  für  das  Vorzei¬ 
chen  verschlüsselt,  darstellbar  sind  also  als  Integer  ganze 
Zahlen  von  -32767  bis  +32767, 

2)  Wandle  INTEGER-Zahl  nach  REAL 
Dies  ist  die  Umkehrung  von  1). 

3)  Wandle  REAL  nach  INTEGER. 

Dabei  wird  eine  Integer-Zahl  mit  16  Bit  (kein  Vorzeichen!)  ver¬ 
schlüsselt,  darstellbar  sind  also  Zahlen  von  0  bis  65535.  Diese 
Routine  wird  für  die  interne  Darstellung  der  Zeilennummern 
des  Basic-Programms  benötigt  (Wandlung  von  ASCII  nach 
REAL,  von  dort  nach  INTEGER). 

4)  Wandle  INTEGER  nach  REAL. 

Dies  ist  die  Umkehrung  von  3).  Diese  Routine  wird  zum  Bei¬ 
spiel  für  die  Ausgabe  der  Fehlermeldungen  benötigt  (. .  .ER¬ 
ROR  in  (Zeile)). 

Bei  der  FRE-Funktion  müßte  also  nach  der  Berechnung  des 
freien  Platzes  die  Routine  4)  aufgerufen  werden.  Aufgerufen 
wird  aber  die  Routine  2).  Im  Interpreter  steht 


JMP  $BC44  (an  der  Adresse  $B39B). 

Dort  müßte  aber  eigentlich  stehen 
SEC 

JMP  $BC49 

Die  Frage  ist  jetzt  nur  noch,  wie  kann  man  dies  ersetzen? 
Dabei  tauchen  folgende  Probleme  auf 

1)  Der  Interpreter  wird  im  ROM  gespeichert. 

2)  Man  muß  3  Byte  durch  4  Byte  ersetzen. 

Im  Commodore  64  kann  man  bestimmte  Bereiche,  die 
durch  ROM  belegt  sind,  ausblenden  und  dafür  RAM  einblen¬ 
den.  Das  folgende  Programm  kopiert  den  Interpreter  vom 
ROM  ins  RAM 

10  FOR  1  =  10*16*256  TO  12*16*256-1 
20  POKE  I.PEEKCD 
30  NEXT  I 

Dabei  wird  ausgenutzt,  daß  der  Computer  zwar  über 
PEEK(I)  aus  dem  ROM  liest,  aber  mit  dem  Befehl  POKE  ins 
RAM  schreibt  (dies  ist  intern  gelöst). 

Mat :  ißte  jetzt  nur  noch  das  RAM  einblenden,  vorher  sol¬ 
len  aber  noch  die  notwendigen  Veränderungen  vorgenom¬ 
men  werden. 

So  einfach  kann  man  natürlich  nicht  drei  Byte  durch  vier  By¬ 
te  ersetzen.  Die  Lösung  besteht  darin,  die  Routine  in  einen 
freien  Bereich  umzuleiten  und  dort  die  notwendigen  Befehle 
einzufügen  (sogenannte  Patches).  Also  anstelle  von 
JMP  $BC44  an  der  Adresse  $B39B 
sollte  stehen 

JMP  $C000  in  den  freien  Bereich. 

Dies  erreicht  man  durch 
40  POKE  11*16*256  +  3*256  +  9*16  +  12  ,  0 
(ersetzt  $44  =  44*16  +  4) 

50  POKE  11*16*256  +  3*256  +  9*16  +  13  ,  12*16 
(ersetzt  $BC  =  11*16  +  12). 

An  der  Stelle  $C000  ff.  solte  dann  stehen 
SEC 

JMP  $BC49 

Also  wird  wieder  gePOKET 
60  POKE  12*16*256  ,  3*16  +  8  (  =  SEC) 

70  POKE  12*16*256  +  1  ,  4*16*12  (=JMP) 

80  POKE  12*16*256  +  2  ,  4*16  +  9  ( = $49  Teil  der  Adresse) 
90  POKE  12*16*256  +  3  ,  11*16+12  (  =  $BC  Teil  der  Adresse). 

Jetzt  muß  man  nur  noch  das  RAM  einschalten 
100  POKE  1  ,  PEEK(l)  AND  254  (Einschalten) 

(  POKE  1  ,  PEEK(l)  OR  1  (Ausschalten) ). 

Im  Speicherplatz  1  wird  im  Bit  0  ( =  Wertigkeit  1)  hinterlegt, 
wo  die  Speicherplätze  von  $A000  bis  $BFFF  sind. 

Und  nun,  lassen  Sie  Ihren  Computer  doch  mal  den  Befehl 
PRINT  FRE(0) 

ausführen.  Wenn  Sie  keinen  Fehler  gemacht  haben,  wird  er 
Ihnen  diese  Frage  ab  sofort  korrekt  beantworten. 

Zusammenfassend  kann  man  sagen,  daß  der  beschriebe¬ 
ne  Effekt  unschön  und  der  Aufwand  zur  Änderung  gering  ge¬ 
wesen  wäre.  Der  hier  beschriebene  Aufwand  wurde  da¬ 
durch  groß,  daß  die  Änderung  nachträglich  vorgenommen 
werden  mußte.  (Dr.  August  Quint) 
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Das  Ziel  des  Spiels  ist  es,  in 
möglichst  kurzer  Zeit  aus 
dem  Untergrundsystem  von 
New  York  zu  entkommen  und 
dabei  alle  gestellten  Aufga¬ 
ben  richtig  zu  lösen. 

Das  Spiel  besteht  aus  ins¬ 
gesamt  fünf  verschiedenen 
Spielszenen  und  einer  klei¬ 
nen  Vorgeschichte,  in  deren 
Verlauf  man  durch  einen  of¬ 
fenen  Schacht  in  das  unterir¬ 
dische  System  von  New  York 
stürzt.  Durch  Drücken  der 
Feuertaste  am  Joystick  ist  es 
jetzt  möglich,  in  die  erste 
Spielszene  zu  gelangen. 


J  Bild  3.  Das  Labyrinth  der  wilden  Zahlen 


2000  Mark  für  den 

(rOk  /\öHo^-ui4 

AfeöA.Jßu£rvSf)id .  Ive  -6 dteu  Ai&y 

uoia.  JJgwÜofto 

Kom*,  sdAldetidex  Autor  «serbsf 

Ich  hatte  letztes  Jahr  zwischen  den  Abiprüfungen  ir¬ 
gendwann  mal  eine  Woche  Zeit,  um  etwas  Längeres  zu 
programmieren.  Da  ich  zu  der  Zeit  gerade  eine  gute 
Labyrinth-Routine  in  Maschinensprache  geschrieben  hat¬ 
te,  die  mich  damals  einigermaßen  faszinierte,  war  das 
Grundthema  eines  Spiels  eigentlich  schon  vorgegeben. 

Es  sollte  ein  mit  Joystick  steuerbares,  nicht  aggressives 
Spiel  werden,  bei  dem  Action  und  Überlegung  in  etwa  ei¬ 
ne  gleiche  Rolle  spielen  sollten.  Zu  dem  Zweck  habe  ich 
mir  erst  einmal  ein  Männchen  definiert,  das  mittels  Joy¬ 
stick  einigermaßen  realistisch  bewegt  werden  konnte. 
Beim  Testen  des  Bewegungsablaufes  dieses  Männchens 
kam  dann  die  Idee,  den  Ablauf  des  Spiels  in  den  Unter¬ 
grund  einer  Stadt  zu  legen,  und  so  entstand  dann  der  klei¬ 
ne  Vorspann. 

Das  Zahlenlabyrinth  schwirrte  mir  eigentlich  schon  seit 
einiger  Zeit  im  Kopf  herum,  und  die  Programmierung  ge¬ 
staltete  sich  relativ  einfach.  Als  ich  mir  überlegte,  noch  ein 
wenig  Action  in  das  Spiel  hineinzubringen,  entstanden  die 
beiden  Aufzugsszenen.  Das  Schlußbild  ergab  sich  aus  der 
Überlegung,  ein  einfach  zu  berechnendes,  aber  trotzdem 
schwer  zu  spielendes  Bild  zu  schaffen,  bei  dem  ich  auch 
die  Labyrinthroutine  noch  ein  wenig  benutzen  konnte. 

Aufgrund  dieser  Szenen  entstand  dann  das  eigentliche 
Spiel  UNDERGROUND.  (Oliver  Joppich) 


Oßö&r  JoppicL 
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Bild  1  (oben)  und  Bild  2  (rechts).  Nach  dem  Sturz  in  den  Untergrund  steht  man  vor 
einer  Paternosterkaskade 


A  Bild  4.  »Plplips«  einsammeln  -  in  einem  sich  ständig  verändernden  Labyrinth 
y  Bild  5.  Dies  Ist  das  letzte  Hindernis,  das  es  zu  überwinden  gilt 


Benutze  Maschinenspracheroutinen  (Aufruf  mit  SYS)  ▼ 

4864  Joystickabfrage;  nach  Aufruf  dieser  Routine  kann  mit 
PRINT  PEEK(1001)  der  Schußknopf  und  mit  PRINT 
nEEK(1000)  die  Richtung  abgefragt  werden. 

7360  Malt  die  Aufzüge  auf  den  Bildschirm. 

5000  Crattatazongü  Soundroutine  1. 

7296  Hyaehhü  Soundroutine  2. 

7168  Verschieben  der  Aufzüge  um  eine  Einheit  nach  oben. 

7224  Labbymaker,  die  wohl  interessanteste  Maschinen¬ 
spracheroutine.  Mit  ihr  wird  innerhalb  einer  Zehntel¬ 
sekunde  ein  Labyrinth  auf  den  Bildschirm  gemalt. 


x,y 

lo 

sc 

CO 

po 

fa 

jo 

a(l)...a(5) 

zq 

Pi 

we 

le 

ze 


die  Koordinaten  des  Männchens 
die  Geschwindigkeit  des  Männchens 
Screenstart  (=4096) 

Start  des  Farb-RAM  (=37888) 

Position  des  Männchens  am  Bildschirm 
Position  des  Männchens  im  Farb-RAM 
Adresse  der  Joystickroutine  (=4864) 
Position  der  5  magischen  Zahlen 
Bildschirmpoke  für  Piplip 
Bildschirmpoke  für  Piplip 
Joystickrichtung  „„  „  , 

Level  Wichtige  Variable 

Anzahl  der  mitgenommenen  Zahlen 


10-  135 
136-  190 
198-  260 
266-  290 
298  -  840 
846-  990 
996  -  1590 
1596  -  1790 
1796  -  1950 
1956-2110 
2120-2440 
2450  -  2530 
2580  -  2690 
2700-2710 
2720  -  2730 
2740  -  2750 
2760  -  2760 


Initialisierung 

Titelbild 

Männchen  einen  Schritt  zur  Seite 


Titelbild  New  York,  Schrift 
Vorspannszene 
Aufzüge  Bild  1 
Das  Zahlenlabyrinth 
Piplips  fangen 
Aufzüge  Bild  2 
Die  Glibberbahn 


Die  wichtigsten 
Unterroutinen 


Ende 

da  fehlt  eine  Nummer  oder  ein  Piplip 
damit  geht’s  auf  und  ab  (das  Männchen) 
Level : =  Level  +  1 


Timeout  bei  Piplipcatch 
Ton  langsam  aus 
just  for  fun 
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VC  20  +  16  KByte 


5  I FPEEK ( 44 ) 032THENPR I  NT  "rJB  I TTE  ERST  EINGEBEN  MIP0KE44 , 32 : PP8 1 92 , 0 : NEW " : END 

10  CLR : FORT*0TO3151 : RERDfl : P0KE4364+T, fl : SU«SU+fl : NEXT 
20  I FSUO222400THENPR I NT " FEHLER  IN  DRTEN"  :  END 
30  PR I NT "  rRBSPE I CHERN " 

40  PRINT")QRUF  <i>  TRPE  Llstlng  2.  Maschinenspracheroutinen  und  Grafik  für  »Underground« 

50  PRINT"ODER  <8>  DISK 

60  POKE 1 98 ;  8 :  WR I T 1 98/ 1 :  GETR* :  R=VRL <fl$)  :  IFROl RNDRO8THEN60 

70  PR  I NT  "  Tr44 , 1 9 :  Pr43 , 0 :  Pr43 , 0 :  Pr46 ,32  '  S9  " CHR*  <  34 ) " UG .  DRTR "  CHR*  <  34 ) " ,  "  R 

32000  DRTR162, 24/ 160, 127, 140-34, 145, 172,32,  145, 152,201,119,208,2, 162,23, 172,31 

32001  DRTR145,  152,41,4,201,4,208,5,56, 138,233,22, 170, 152,41,8,201,3,208,5,24 

32002  DRTR138, 105, 22, 170, 152, 41, 16, 201, 16, 208, 5, 138, 56, 233, 1,170, 142, 232, 3, 152 

32003  DRTR 1 62 , 0 , 4 1 , 32 , 20 1 , 32 - 240 , 2 , 162,1,142,233,3, 169,255, 141,34,145,96,0,160 

32004  DRTR0, 132,0, 169, 148, 133,1, 162,2, 138, 145,0,200, 145,8,200,200,200, 192,24 

32005  DRTR208 , 243 , 72 , 169,22,24, 101,0, 133,0, 169,0, 101,1,133,1,201,150,240,6, 104 

32006  DRTR160, 0,76, 90, 19, 104, 96, 0,0, 0,0, 0,0, 0,162, 0,134, 1,169, 0,133, 8,162, 15 

32007  DRTR142, 14, 144, 164,0, 140, 11, 144, 166,1,232,208,253, 136, 132,0, 192, 127,208 

32008  DRTR241, 169,0, 141, 14, 144, 141,13, 144, 141, 12, 144, 141,11,144, 141,10, 144,230 

32009  DRTR1, 230, 1,230, 1,230,1, 165, 1,41,7,77, 15, 144, 141,15, 144, 165,1,288, 191,96 

32010  DRTR0, 0,0, 0,0,0, 183, 96, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0-0 

32011  DRTR0, 0,0, 0,8, 0,0, 0,0, 0,8, 0,0, 8,0, 0,0,0, 1,2,3, 1, 1, 1,0,0, 192,32,248,80, 16 

32012  DRTR32, 192, 192, 3, 4, 7, 2, 2, 2, 1 , 1 , 128, 64, 240, 160,32,64, 128, 128,0,0,0,0,3,4 

32013  DRTR15  5,0,0,0,0, 128, 64, 240, 64, 0, 0, 0, 0, 0, 0, O, 32, 0, 0, 0, 0, 0, 0, 0, 0, 1 , 7, 3, 2 

32014  DRTR49, 26, 14,6,224,248,96,32, 192,32,48,56,0,7,8,8,8,8,8,8,0,255,0,0,4,4 

32015  DRTR31, 4, 24, 255, 8, 8, 8, 8, 15, 8, 0,0, 128, 64, 32, 16, 240, 16, 24, 24, 36, 90, 90, 153 

32016  DRTR 129, 255, 0, 0, 24, 24, 36, 66, 129, 255, 1 , 2, 2, 2, 1 , 1 , 1 , 1 , 32, 160, 160,32, 192,64 

32017  DRTR32, 224,2,5,6,4, 13,13,20,24,64,64,  128, 192,32, 160, 144, 1 12,  4,  4, 3, 7, 4, 5 

32018  DRTR4, 3, 64, 123,8, 123, 70,53, 138, 254,  32, 120, 181 , 178, 168, 166, 123,33,0,0, 192 

32019  DRTR32, 144,66,33,255,2,3,4,9, 10,18,20,60,44, 193,32,160,160, 160,  144,240 
32028  DRTR8, 3, 3, 8, 7, 6, 1,0,4,0,0,8,255,76,0,0,8, 12,8,8,255,244, 17,14, 16,16,16 

32021  DRTR 16, 240, 224,0,0, 173, 129, 173, 173, 173, 129, 173, 173, 129, 171,129, 171,129 

32022  DRTR171, 129, 171,0,0,0,3,0,0,0,0, 128,64, 192, 123,  123,  128, 0, 0, 3,  4, 31 , 10, 8 

32023  DRTR4, 3, 3, 192,32,224,64,64,64,128,128,1,2, 15, 5, 4, 2, 1 , 1 , 0, 0, 0, 0, 192, 32, 240 
32824  DRTR 160, 0, 0, 0, 0, 1,2, 15,2,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0, 123,224, 192,64 

32025  DRTR140, 33, 112,96,7, 15,6,4,3,4,12,23,8,224, 16, 16, 16, 16, 16, 16,0,255,8,0 

32026  DRTR32, 32, 243, 32, 24, 255, 16,  16, 16, 16, 240,  16, 0, 0, 1 , 2,  4, 3, 15,8, 24,24,  36,  90 

32027  DRTR90, 153, 129,255,0,0,24,24,36,66, 129,255, 128,64,64,64, 128, 128,123, 128 
32628  DRTR4, 5, 5, 4, 3, 2,4,7, 64, 160,96,32, 176,72,40,24,2,2,1,3,4,5,9,  14,32,32,  192 
32829  DRTR224, 32, 160, 32, 192, 2, 1 , 0, 1 , 98, 92, 65, 127, 4, 30, 173,77,5, 101,222, 132,0 
32030  DRTR0, 3, 4,201, 179,132,255,64, 192,32, 144,80,72,40,60,52,99,4,5,5,5,9,15 
32831  DRTR16, 16, 16, 16,224,96, 123,0,85,85, 170, 170,35,85, 170, 170, 16,48, 16, 16,255 
32032  DRTR47, 136, 112,8,8,8,8,15,7,0,0, 131,129, 181 , 131 , 131 , 129, 131,0, 132, 134,202 
32833  DRTR84 , 238 , 84 , 190,0,24,52,98, 126,93,93,98,0, 124,93,93, 124,93,98, 124,0,23 
32034  DRTR58, 96, 96, 96,50, 23, 0, 120, 108,93,93,98, 100, 120,0, 126,96,96, 120,96,96 
32835  DRTR 126, 0, 126,96,96, 124,96,96,96,0,28,50,96,110,98,50,23,0,93,98,98, 126 
32036  DRTR98, 93,98,0, 12, 12, 12,12, 12, 12, 12,0,6,6,6,6,6, 102,60,0,98, 100, 104,112 
32837  DRTR104,  100,98,0,96,96,96,9 6,96,96,  124,  0,98, 1 13,,  106  ?*,  93, 93, 98, 0, 66, 93 

32038  DfiTfil  14,  106, 102, 98, 93, 0, 60, 93, 93, 93, 93, 93, 68, 8, 124; 77  93, 124, 96, 96, 96, 0 

32039  DRTR60, 93,98, 98 • 106, 100,53,0, 124,98,93, 124, 120, 103, 102,0,60, 102,96,60,6 

32840  DRTR 102, 60,0, 126,24,24,24,24,24,24,0,93,98,98,98,98,98,60,0,100, 100, 100 

32841  DRTR188, 108,56, 16,0,93,98,98,196, 106, 1 18, 36, 0, 93, 93, 52, 24, 52, 98, 93, 0, 49 

32842  DRTR49, 49, 30, 12, 12, 12,3, 126, 126,12,24,43, 126, 126,0,219, 165,66, 153, 153,66 
32043  DRTR165, 219, 0,56, 34, 16,16,84,56,0, 127, 101 , 103, 61 , 61 , 183, 181, 127,9, 126, 153 
32844  DRTR255, 255  153, 126,0,0,24,60,90,255,231, 126,60,0,0,0,0,0,0,0,0,8,8,8,8 

32045  DRTR0, 0.  8, 0 ■ 36, 36, 36. 0,0,8,0,0,36,36, 126,36, 126, 36, 36, 9, 24, 60, 90, 36. 90 

32046  DRTR69, 24, 0,0, 102, 102, 0,126, 0,192, 102, 124, 179, 130, 124, 56, 124, 233, 9, 63, 170 

32047  DRTR103, 56, 63, 124, 193,0,7,3, 13, 16, 17, 8, 7, 0, 224, 16,72,8,136, 16,224,9,23 
32043  DRTR62, 20, 3, 62, 93, 23, 54, 9,8, 8, 62, 3, 3, 9,0, 0,0, 0,9, 0,3, 8, 16, 0,8,0, 126,8,0 
32049  DRTR9, 0,9,  0,0, 8,0, 24,  24,  0,8,  2,  4, 8,  16,  32, 64, 0, 60, 93,  98, 98, 93, 98, 60, 0,  12 

32059  DRTR23, 44, 12,12, 12, 12,0,69 ,6,6, 12, 24, 48, 62, 8, 60, 6, 6, 28, 6, 6, 69, 9, 43, 54, 54 

32951  DRTR54 ,63,4,4,0, 126,96, 120, 12, 12, 76, 56, 0, 28, 48, 96, 124,93,93,60,0,62,2,6 

32952  DRTR12, 24, 24, 24, 0,60, 98, 98, 60, 98, 98, 60, 0,60, 98, 93, 62, 6, 12, 24, 0,8, 0,8,0 

32053  DRTR0,8,0,0, 0,0,8, 0,8,8,8, 16, 14,24,48,96,48,24,  14,0,8,0, 126,9, 126,0,9,0 

32054  DRTR1 12, 24, 12,6, 12, 78,69, 35, 45, 83, 67, 72, 32, 73, 70, 0, 189,90, 189, 153,153, 139 
32955  DRTR90, 189, 192,32,248,80, 16,32, 192, 192, 3, 4, 7, 2, 2, 2, 1 , 1 , 128, 64, 249, 160,32 
32056  DRTR64, 128, 128,0,9,0,0,3,4, 15,5,8,0,0,0, 123,64,240,64,0,0,0,0,0,9,0,32 
32857  DRTR9, 0,0, 0,9, 9,0, 8,1, 7, 3, 2, 49, 26, 14, 6, 224, 240, 96, 32, 192,32,43,56,0,7,3 

32958  DRTR8, 8, 3, 8, 8, 0,255, 8,0, 4, 4, 31, 4, 24, 255, 8, 8, 3, 3, 15,8,0,0, 123,64,32, 16,240 

32959  DRTR16, 24,24, 36. 90,90, 153, 129, 255, 9, 8, 24, 24, 36, 66, 129,255,1,2,2,2,1,1,1 

32060  DRTR1 , 32, 160, 169,32, 192,64,32,224,2,5,6,4, 13, 18,29,24,64,64, 123, 192,32 
32961  DRTR160, 144, 1 12, 4, 4, 3, 7,  4, 5, 4, 3, 64, 128,0, 128,70,59, 130,254,32, 120, 181,178 
32062  DRTR 160, 166, 123,33,0,0, 192,32, 147,205,33,255,2,3,4,9, 10, 18,20,69,44, 193 
32963  DRTR32, 160, 160, 160, 144,240, 8,8, 8, 8, 7, 6, 1 , 0, 4, 0, 0, 0, 255, 79, 16,224,8, 12,3 
32064  DRTR8, 255,244, 17, 14, 16, 16, 16, 16,240,224,0,9, 173, 129, 173, 173, 173, 129, 173 
32865  DRTR 1 73 , 1 29  - 1 7 1 , 1 29 , 1 71 , 1 29 , 1 7 1 , 1 29 , 1 7 1 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 

32066  DRTR0, 3, 4, 15, 6, 5, 4, 3, 9, 123, 64 . 224, 192,64,64, 123,3,4, 15,6,5,4,3,12, 123,64 

32067  DRTR224 ,192,64,64,123,96,  48 ,126.  64 ,64,129,64,64,1 26 ,0,126,64, 64 , 1 20 , 64 
32968  DRTR64, 64, 9,28, 34, 64, 78, 66, 34, 23, 9,66, 66, 66, 126,66,66,66,9 ,28,3,3,3,3,3 
32069  DATA28, 0,14, 4, 4, 4, 4, 68, 56, 0,66, 68, 72, 112, 72, 63, 66, 0,64, 64, 64, 64, 64, 64, 126 
32979  DRTR9, 66, 102,90, 90, 66,66,66, 9, 66, 98, 82,74, 79, 66,66, 0,24, 36, 66, 66, 66, 36 

32071  DRTR24, 0,9, 0, 0, 0, 0, 0, 0, 12, 28, 18,7,6, 10, 14, 0, 64, 96, 1 12, 216, 192, 169,160,224 

32072  DRTR23 , 52 , 39 , 6 , 1 0 , 10 , 14 , 0 , 1 12, 80 , 128 , 1 92, 1 60 , 224 , 0 , 0 , 0, 66 , 66 , 66, 66 , 66, 66 

32973  DRTR69 . 0 , 66 , 66 , 66 , 36 ,36,24, 24 , 0 , 66 , 66 , 66 , 90 , 90,102,66,0 , 66 , 66 , 36 , 24 , 36 

32974  DRTR66 , 66 , 0 , 34 , 34 , 34 , 28 , 8 , 8 , 8 , 0, 1 26 , 2 , 4 , 24 ,32,64,1 26 , 0,60, 32 , 32 , 32 , 32 , 32 

32075  DRTA60, 0-12,16, 16,60,  16, 1 12, 1 10, 0, 60,  4, 4,  4,  4, 4, 60, 8,  9, 3, 23, 42, 8, 8, 3, 8, 9 

32076  DRTR86, 50, 32, 33, 85, 129,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,3,8,8,0,0,3,0 

32077  DRTR36 , 36 , 36 , 9 , 0 , 0 , 9 , 0, 36 , 36 .126,36,1 26 , 36 , 36 ,0,3 , 39 , 40 ,23,19, 69 ,3,9,0 
32873  DRTR93  109,8, 16, 38, 70, 0, 48, 72, 72, 48, 74, 63, 53, 9, 4, 3, 16,0,0,0,9,0,4,3, 16 
32079  DRTR 16, 16,8,4,0,32, 16,8,8,8, 16,32,0,8,42,23,62,23,42,3,0,0,3,3,62,3,8,0 
32030  DRTR0, 0,0, 9,0, 0,3, 8, 16,0,0,9, 126,0,0,0,0,0,0,0,0,0,24,24,9,9,2,4,8, 16,32 
3208 1  DRTR64 , 0 , 60 , 66 , 70 , 90,98, 66 , 69 ,0,8 , 24 ,  40,3,8,8,62,9 , 60 , 66 , 2 , 1 2 , 43 , 64 , 1 26 
32032  DRTR0, 60, 66, 2, 28, 2, 66,60, 0,4, 12,20,36, 126,4,4,0, 126,64, 120,4,2,68  56,0 

32083  DRTR23  32  64, 124,66,66,60,8.  126,66,4,3, 16, 16, 16, 0, 60, 66, 66, 60, 66, 66, 60 

32084  DRTR0, 60, 66, 66, 62, 2, 4,56, 0,9, 0,8,9.  0,8,0,9,0,.0.  8,9.  9.  3,3, 16, 14,24,48  96 

32085  DRTR43, 24, 14, 9,0, 0,126, 0,126, 0,9, 9,112, 24, 12, 6, 12, 24, 1 12, 9, 69, 66, 2, 12, 16 


In  dieser  ersten  Szene 
(Bild  2)  geht  es  darum,  ohne 
Berührung  der  Wände  von 
der  linken  auf  die  rechte  Sei¬ 
te  zu  gelangen.  Um  dies  zu 
erreichen,  gilt  es,  die  Aufzü¬ 
ge,  die  sich  von  unten  nach 
oben  bewegen,  geschickt  zu 
benutzen. 


Oie  wilden  Zahlen 


Nach  diesem  ersten,  noch 
recht  einfachen  Bild  gelangt 
man  in  das  Labyrinth  der  wil¬ 
den  Zahlen  (Bild  3).  Hier  geht 
es  darum,  in  möglichst  kur¬ 
zer  Zeit  (maximal  1  Minute) 
die  Zahlen  des  Labyrinthes 
in  ihrer  Reihenfolge  aufzu¬ 
sammeln.  Damit  diese  Ar¬ 
beit  ein  wenig  erschwert 
wird,  tauschen  die  Zahlen  al¬ 
le  sieben  Schritte  ihre  Posi¬ 
tion  in  zufälliger  Folge.  Um 
diese  kleine  Gemeinheit 
aber  ein  wenig  auszuglei¬ 
chen,  kann  auch  der  Spieler 
die  Position  der  Zahlen  ver¬ 
ändern,  indem  er  den 
Schußknopf  betätigt.  Auch 
dann  tauschen  zwei  zufällig 
ausgewählte  Zahlen  ihre  Po¬ 
sition  auf  dem  Spielfeld. 
Wenn  alle  Zahlen  aufgesam¬ 
melt  sind,  muß  man  sich  zum 
Ausgang  auf  der  rechten  un¬ 
teren  Seite  begeben. 

Man  kann  dieses  Bild  auch 
verlassen,  wenn  man  nicht 
alle  Zahlen  aufgesammelt 
hat.  Dadurch  ist  es  möglich, 
sich  auch  die  folgenden 
Spielszenen  anzuschauen. 
Allerdings  gelangt  man  zum 
Schluß  des  Spiels  leider 
nicht  wieder  an  die  Oberflä¬ 
che  der  Stadt,  sondern  muß 
nochmal  von  vorn  anfangen. 


Die  Piplips 


In  der  nächsten  Szene  (Bild 
4)  besteht  die  Aufgabe  darin, 
alle  Piplips  aufzusammeln, 
das  sind  die  kleinen  schwar¬ 
zen  Wesen,  die  überall  im 
Bild  verteilt  sind  und  danach 
zum  Ausgang  rechts  unten  zu 
gelangen.  Die  Schwierigkeit 
dieses  Bildes  besteht  darin, 
daß  man  nur  eine  bestimmte 
Anzahl  von  Schritten  zur  Ver¬ 
fügung  hat,  um  von  einem 
Pipip  zum  anderen  zu  gelan¬ 
gen.  Jedesmal,  wenn  man  ei¬ 
nes  der  Wesen  aufgesam¬ 
melt  hat,  erscheint  sofort  ein 
neuer  Irrgarten  mit  anders 
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32986  BRTR0 ,  16,8,  158,  160 , 203 ,  1 80 ,  1 39 ,0,2,16,1 30 ,  1 53 , 253 ,1.-1 98 , 1 23 , 1 69 , 255 ,  1 33 

32987  IiRTfl  1 22 , 96 ,  1 65 ,  43 ,  1 66 ,  44 , 160,1,1 33 , 95 ,  1 34 , 96 ,177,95, 240 ,31, 200 , 200 , 1 65 
32038  BRTR21, 209, 95, 144, 24,240, 3, 136, 203, 9,  165, 20, 136, 209, 95, 144, 12, 240, 19, 136 
32089  IiRTR  1 77 ,  95 ,  170,1 36 ,177,95,176,215 , 24 ,  96 , 203 , 253 , 1 69 ,  8 ,  163,145 , 43 , 209 ,  1 45 
32990  DRTR43 , 1 65 , 43 , 24 ,195,2,1 33 , 45 , 1 65 , 44 , 1 05 , 0 , 1 33 , 46 , 32 , 1 42, 1 66 , 1 69 , 0 , 208 
3289 1  BRTR45 , 32 ,231, 255 ,165,55,1 64 , 56 , 1 33 ,51,1 32 , 52 , 1 65 ,45,164 , 46 , 1 33  47 , 1 32 

32092  HRTR43 ,133,49,1 32 , 50 , 32 , 29 , 168,1 62 ,25,134 , 22 , 1 04 , 1 68 , 1 04 , 1 62 , 259 , 1 54 , 72 

32093  IiRTR  152, 72, 169,0, 133,62,  133, 16,96,24, 165,43, 195,255,  133,  122, 165,44,  195 

32994  HRTR255 , 133,1 23 , 96 ,144 , 6 , 249 , 4 , 20 1,171, 293 , 233 , 32 , 1 97 , 1 69 , 32 ,19,1 66 , 32 

32995  IiRTR  1 2 1 , 0 , 249 ,12,201,171, 203 ,  1 42 ,32,115 , 9 ,  32 ,107,169 , 208 , 1 34 ,  L84 ,104,1 65 

32996  HRTR20 ,5,21, 293 ,6,1 69 , 255 , 1 33 , 20 ,133,21,160,1,1 32 ,15,177 , 95 ,240 , 67 , 32 , 44 
32097  IiRTR 168, 32,215, 179,209, 177,95, 170,200, 177,95, 197, 21 , 208, 0, 0, 0,0 . 0, 0, 0, 0 
32993  DRTR0, 9,0,0, 9,0,0, 0,0, 0,0, 9,0, 0,0, 169.  16. 133,255, 133, 1, 169,2, 133. 254, 169 

32099  DRTR24 , 1 33 ,0,160,9177 , 254 , 153, 252, 17, 177,0, 145,254,200, 177, 254 ,153, 252 

32 1 00  BfiTfl 17,177, 0 , 1 45 ,254, 290 , 209 , 299 , 1 92 , 29 , 293 , 230 ,165,1,133 , 255 , 24 , 165,0 

32101  IiRTR  133,  254,  195,22,  133,0,  169,9,  191, 1,  133,  1,201, 13,249,21, 169,9, 177,9,  145 

32192  DRTR254, 299, 177,9, 145,254,200,200,200, 192, 20, 208, 249, 76, 42, 28, 120, 162, 19 

32193  I'RTR 169, 15, 141, 14, 144, 134,9, 198,9,208,252, 169,9, 141, 14, 144, 134,9, 193,9 

32 1 04  DRTR298 , 252 , 292 , 203 , 23 1 , 33, 95 , 96 , 96 , 95 , 96 , 96 , 96 , 96 , 96 , 96 , 96 , 96 , 96 , 1 69 , 9 

32105  HRTR141, 13, 144, 141 • 12, 144, 141,11, 144, 141, 10, 144, 141, 14, 144, 162,255, 168 

32196  DRTR255,  141, 14, 144,202,208,250,  169,255,77,  14, 144, 141, 14, 144,292,288,253 

32197  DR TR 136, 152,41, 249, 178, 192, 64, 208, 233, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96 

32 1 98  DPTR96 , 96,96 , 96 , 96 , 96 , 1 69 ,0,1 69 , 128,1 53 , 9,16,1 53 ,9,17,1 69 , 4,1539,1 48 , 1 53 

32199  DRTR9 , 1 49 , 209 , 298 , 237 , 76 , 80 ,19, 96 , 96 , 96 , 96 , 96 , 96 , 96 , 96 ,165,9,41,1 , 73 , 1 
32119  DRTR1 33 ,9,169,0,153,134,1 48 , 208 , 208 , 258 , 96 , 96 , 96 , 96 , 96 , 96 , 96 , 96 , 96 , 96 , 96 

32111  DRTR96, 96, 96, 96,0, 169, 160,1 60,0, 153,22, 16, 153,9, 17, 153,0, 148, 153,9, 149 

32112  DRTR290 , 298 , 24 1 , 32  160, 29 , 234 , 234 ,169,45,1 33 , 254 , 169, 16, 1 33 , 255 , 32 , 299 

32113  DRTR29, 24,  133,38,24,41,3, 179,32,9,30,  160,0, 177,2,201, 160,288,32,24, 165 

32114  DRTR2, 133, 0, 165, 3, 133, 1 , 138, 145,2, 32,  89, 39, 169,32, 169, 0, 145,2, 165,0, 133 

32115  DRTR254 , 165,1,1 33 , 255 , 76 , 32 , 29 , 232 ,  1 38 , 24 ,41, 3 , 178,1 65 ,38,24,41,3,1 33 , 38 

32116  DRTR228, 38, 248,4, 138, 76, 42, 29, 160, 8, 177, 254, 178, 169, 32, 145, 254, 160, 8, 138 

32117  DRTR224 ,4,43, 1,96,32,0,31, 165,3, 1 33 , 255 , 165,2, 133,254,76 , 32 , 29 , 0 , 0 , 8 , 6 

32118  DRTR0, 8,0, 8,0, 9,0, 0,0, 8, 0,0, 0,0, 0.0.0, 0,8, 169, 16, 133, 1, 169,21, 133,0. 160 

32 119  DRTR0, 169,91,1 45 , 8 , 24 , 1 65 , 9 ,  1 85 .  22 ,  1 33 , 8 , 169,0,101,1,1 33 , 1 , 20 1,18 , 208 , 233 
32128  DRTR169, 5,  141,45, 16, 169,91, 160,0,  153,0,  16,280, 192, 22, 208, 248, 96, 173,22 

32121  IiRTR  145, 77,21 , 145,77,24,  145,77,25, 145,96,  169, 100,96,0,0,0,0,0,0,0,0,0,0 

32122  DRTR0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0,  0, 224 • 8 • 208 • lfi • 24 . 1 F9 . 2 . lOl 

32123  DRTR254, 133,2, 169,8, 181 , 255,  133, 3, 76, 73, 30, 224,3, 208, 16, 24, 1 69, 44 ■ 101 . 254 
32 1  £4  IiRTR  1 33 ,2,1 69 , 0 ,101 , 255 ,  1 33 ,  3 ,  76 ,  73 , 30 ,  224 , 2 , 208 ,16.56  1 65  •  254  233  21 77 

32125  DRTR2 , 1 65 ,255,233,0,1 33 , 3 , 76 , 73 , 30 ,56,155 , 254 , 233 ,44,133,2,165, 255 , 233 

32126  DRTR0, 133,3,96,0,0,0,0,0,0,224,0,208,  16,24, 169, 1, 101,254, 133,2, 169,0, 101 

32127  DRTR255, 133,3,76,73,30,224,3,203, 16,24, 169,22, 161  254. 133- 2- 169,0. U01, 255 

32 1 28  DRT R 1 33 , 3 , 76 , 73 , 30 , 224 , 2 , 208 ,16, 56 , 1 65 , 254 , 233 ,1,1 33 ,2,1 65 , 255 , 233,0,1 33 

32 1 29  DRTR3 , 76 , 73 , 39 , 56 , 1 65 , 254 , 233 , 22 , 133,2,1 65 , 255 , 233 ,0,1 33 , 3 , 96 ,96,0,0,0 

32130  DRTR0 , 0, 0,0, 0, 0,0,0, 0, 0,0,0, 0,0, 0, 0, 0,0, 0,0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0 

32131  BRTR0, 0,  0,  0,  0,  0, 0,  0,0. 0,  0,0, 0,  0, 0,  0, 0,  0, 0,  0, 0, 0, 0, 0,  0, 0,0,0, 0,  0, 0,0, 0, 0 
32 1  72  HRTR0 , 0 , 0 ,  0 , 0 , 0  ,0,0,0 , 0 ,0,0  ,  0  ,  0 , 0  ,  0 , 0  ,  0 , 0,  0 , 0 , 0 , 0 , 0 , 0  ,  Pi ,  *7  0,0.0 , 224 . 2 , 208 

32133  DRTR16,  24,  169, 2, 101 , 254, 133,  2, 169,0, 101 , 255,'  133,3, 76, 73, 31 , 224,  1 , 208,  16 

32134  BRTR24, 169,44, 191,254, 133,2, 169,9, 101,255, 133,3,76,73,31,224,0,20«. 16. 5F 

32135  BRTR165, 254,233, 2, 133,2, 165,255,233,0, 133,3,76,73.31 -56, 165,254,273,44 

32 1 36  DRTR 1 33 ,2,1 65 , 255 , 233 , 8 ,  1 33 , 3 ,  96  ..0,9 ,  g ..  1 65 , 254 , 1 33  

10  REH  UNDERGROUND 

29  REM  WRITTEH  BV 
39  REM  OLIVER  -JOPPICH 

49  REM  GELLER  STR. 52 

50  REM  3390  ES 
69  = 

78  CLR :  P0KE36879 , 8 :  PRINT" IM"  :  P0KE36869, 295  =  PRINTCHR$<8>  '■  CG=37S88 :  SC=4096 :  PO=SC :  L 
E=9 

89  J0=4864 : REM  JOVSTICKROÜTINE 
81  LO=60 : P0KE7645, 96 

90  cij$(0)="!  r  t  l  -L-«O'i*ry,:0J$<i)=,,o  r  1  i  *v 

100  oj$<2>="!  Lni-.*r.n/- 

110  0J$<3>  =  "»»LL  -:\  II*  :OJ$<4)="5«  l*TT  I  ~l_f  K/l  1 1 1 1 1 1  ■ 

128  RM$="JKLMMMMEC£]II*n":POKE0,0:REI1  ERRÜCHT  JEMRNB  ' NEN  KRANKENWAGEN 
1 30  P0KE36876 , 228  =  P0KE36877 , 254  =  FORT=0TO500 : NEXT : P0KE36876 , fl 

135  = 

136  REM  TITELBILD  1 

137  : 

146  forv= 1  TO 1 9STEP4 :  Listing  3-  Das  Basicprogramm  von  »Underground« 

158  FORX=0TÖ20:P0KE646, RNDC 1 >*7+1 
1 68  SYS JO i I FPEEK < 1 00 1 >  =  1 THEN850 

170  GOSUB200  PRINTMIDf  <0J$(Y/4) ,  X+ 1 , 1 ) :  P0KE36878, 15 :  PfiKE3637«  •  0 
1 80'  NEXT I  PR I NT  PRI NT "  ««  " ; : HEXT 
1 98  FQRT=0TQ3000 : NEXT ' GOTO270 

197  = 

198  REM  BEWEGUNG  DES  MflENNCHENS 

199  : 

200  POKEPO, 32  =  POKEPO+l , 32  P0KEP0+22.  32 : POKEPÜ+23 • 32 

210  FA=C0+X+V#22  •  R=4 : POKEFfl,  fl  :  POKEFR+l ,  R  ■  POK.EFfl+22,  R  =  POKEFR+23,  R 
220  P0=SC+X+V#22 • POKEPO , 2 : POKEPÜ+ 1,3: P0KEP0+22 ,18: P0KEP0+23 ■ 1 9 
230  FORT=0TOLÜ : NEXT 

240  P0=SC+X+Y*22 = POKEPO, 0 ' POKEPO+l , 1 ■ P0KEP0+22, 1« : P0KEP0+23 . 17 
250  FQRT=0TQLO : HEXT 
260  RETURN 

265  : 

266  REM  TITEL  2 

267  = 

£70  pr  int  "new  ir t_  r/  i  mm  mg*  y~o  ir_'  i  i  as 

£75  PRINT":«BWWIS  F/  0*L-'  I  l-T  A  I  I  I“  MOBS"; 

288  PRINT"!  TO/  0  \~ /  I  I*  T TV*  mtkn  -i-nn-n 

2 98  FORT=0TÜ9999 : HEXT 

297  : 

298  REM  SCENE  1  IN  NEW  YORK 


verteilten  Piplips.  Tip:  1.  Erst 
in  Ruhe  das  Labyrinth  an¬ 
schauen  und  dann  lossau¬ 
sen.  2.  Auch  dieses  Bild  kann 
man  ohne  alle  Piplips  verlas¬ 
sen,  allerdings  gelten  auch 
hier  dieselben  Einschrän¬ 
kungen  wie  bei  den  Zahlen. 


Aufzüge  und 
Labyrinth 

Als  nächstes  kommt  jetzt 
wieder  ein  Bild  mit  Aufzü¬ 
gen,  allerdings  um  einiges 
schneller  und  mit  kleineren 
Fahrstühlen.  Auch  hier  muß 
man  möglichst  die  Nerven 
behalten  und  von  links  nach 
rechts  zum  Ausgang  gelan¬ 
gen. 

Und  nun  zur  letzten  Szene 
(Bild  5):  Auf  den  ersten  Blick 
vielleicht  ein  simples  Laby¬ 
rinth  mit  zwei  regelmäßig 
umherfliegenden  Objekten 
(eine  Namensgebung  sei 
diesmal  jedem  selbst  über¬ 
lassen).  Die  Aufgabe  besteht 
darin,  zum  Ausgang  zu  ge¬ 
langen,  ohne  mit  den  fliegen¬ 
den  Objekten  zusammenzu¬ 
stoßen.  Sollte  es  aus  Verse¬ 
hen  doch  zu  einem  Zusam¬ 
menstoß  kommen,  wird  man 
leider  in  das  vorletzte  Bild 
zurückgeschleudert  und 
muß  erst  mal  wieder  die  Auf¬ 
züge  überwinden. 

Die  Schwierigkeit  bei  die¬ 
sem  Bild  besteht  darin,  daß 
nach  einmaligem  Losgehen 
in  eine  bestimmte  Richtung 
die  Bewegung  nicht  mehr 
gestoppt  werden  kann,  bis 
man  an  einer  Wandbegren¬ 
zung  zum  Stillstand  kommt. 
Wer  jetzt  immer  noch  glaubt, 
daß  dieses  Bild  leicht  zu 
schaffen  sei,  möge  bitte  das 
Programm  abtippen,  zu  ei¬ 
nem  Joystick  greifen  und  an¬ 
schließend  spielen. 


Das  Eintippen 


Um  U nderground  auf  mög¬ 
lichst  einfache  Art  und  Wei¬ 
se  vom  Papier  in  den  Com¬ 
puter  zu  bringen,  ist  das  Pro¬ 
gramm  in  drei  Teile  unter¬ 
teilt: 

Listing  1:  Lader. 

Dieser  dient  dazu,  den 
Maschinen-  und  Basic-Teil 
von  Underground  von  Kas¬ 
sette/Diskette  zu  laden.  Um 
dieses  Programm  benutzen 
zu  können,  muß  noch  der 
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300  PRINT":»  N  N  N  H  0 

316  PRIHT"N  0+-  N  «•  N  t  +  0+ 

329  PR  I  NT "  T  T+NNt  0*-  t  tO+-  T+4T; 

330  PR  I  NT  "  TO  T*-«-t1tJ0«-*-N  TNO tt+N  T++-" ; 

340  PRINT" t^T<-«-Tt<-t«-<-Tt«-t'N-TT<-<-" ; 

350  PRINT"  t+fM-tt^t++-«-tt*-tT«-T t++-" ; 

360  F0REE=37888T037888+22 : E1=RND< 1 >#7+1 : PQKEEE, El  P0KEEE+22.E1 :P0KEEE+44,E1  POKE 
EE+66,E1 

370  ' POKEEE+88 >  E 1 ; P0KEEE+ 1 1 0- E 1 : NEXT 

380  PRINTHS:»M»M»l*/r*C*n  ir--'»»»**»»»!««««" ; 

390  PRINT"r«»3««««<««««««'';  :  FORT=0TO7 :  PRINT"««««:««««  ««"; 
400  NEXT 

410  PRINT"KBSC««««««««««<":REM  "22  *  <" 

420  P0=828 : FORX=0TO15: V=t  GOSUB200 ■ P0KE36873, 15 • PQKE36378, 0  NEXT 
430  POKEPO, 32 : POKEPO+l , 32 : POKEP0+22, 32 : POKEPG+23, 32 
440  F0RV=6T015  LO=70 : fl=0 

450  FA=C0+X+Y#22  fl=4  ■  POKEFfl,  fl  :  POKEFfl+1 ,  fl  :  POKEFA+22, fl :  POKEFA+23,  fl 
460  P0*SC+X+Y#22 '  POKEPO,  8 :  POKEPO+l ,  9 :  P0KEP0+22,  24  :  POKEF'O+23, 25 
470  IFV>8THENP0KEFA-22, 2 • POKEFfl-21 , 2 ■ P0KEP0-22, 60 : P0KEP0-21 , 60 
480  POKEPO, 32 : P0KEP0+ 1 , 32 : P0KEP0+22, 32 : P0KEP0+23, 32 

490  P0KE36878 • 9 : FOREE=240TO242 : P0KE36877 , EE : NEXT : NEXT 

491  PRINT"Tni  ■"  ;  •  REN  17  SPACES 

500  POKEFfl, 2  POKEFfl+1, 2  POKEPO, 60 -POKEPO+l, 60 

510  PRINT-nDEIBBTU-J 

520  P0KE36877, 150:FORT=15TO0STEP-1  P0KE36878, T = NEXT 
530  P0KEFfl+22, 2 : P0KEFfl+23, 2 : P0KEP0+22, 60  P0KEP0+23, 60 
540  PRINT"  nai  AHMT; 

550  P0KE36877, 220  FOPT=10TO0STEP-1 : P0KE36878, T : NEXT 
560  FORT=0TO 1500  NEXT 
s?0  PRiNT"iniinF  »iirru" ; 

580  FORT=0TO 1499  NEXT 

59Q  PRINT"  n«i  üiir/ti";  Listing  3.  Das  Basicprogramm  von  »Underground« 

600  FORT =0TO1 499 :  NEXT  (Fortsetzung) 

610  PRiNT"-«nDE)üiru"; 

620  FORT=0TO1499  NEXT 
630  PRINT" 5«n5flia«PQ"  j 
640  FOPT=0TO999  NEXT 

650  PRINT :  PRINT"  ®  F/  ->/  /~0  ir_->  t/ — -I  -T  t/~  *  1*1  “\ 

660  FORT =0TO5O00  NEXT 

670  PRINT"T»I  1  —  1  1  r  >-TT  IT  I  I“  I 

680  Y=Y+2 - P0=832 : GOSUB20O : P0KE36878, 15 ’ P0KE36878, 0 

690  LO=70 • FORTT=0TO3 ■ X=X+1 : OOSUB20Ö : P0KE36878 , 15 ■ P0KE36878, 0  NEXT 

"00  F ORX= 1 9T O0STEP- 1 = G0SUB718  P0KE3S878, 15  P0KE36878, 0 : HEXT : G0T0770 

7 1 8  POKEPO , 32 : P0KEP0+ 1 , 32  P0KEP0+22 , 32  =  P0KEP0+23 , 32 

720  Ffl=C0+X+Y*22  fl=4 : POKEFfl, fl : POKEFfl+1 , fl : POKEFfl+22, fl : P0KEFß+23, fl 

730  P0=SC+X+Y*22 :  POKEPO, 36  -  POKEPO+ 1,35-  P0KEP0+22, 50=  POKEPO*-^,  51 

740  FORT=0TOLO : NEXT 

750  P0=SC+X+Y#22 : POKEPO, 34 - POKEPO+ 1,33  =  P0KEP0+22 , 50 • P0KEP0+23 , 43 
760.  FORT=0TOLO  NEXT  =  RETURN 
770  PR  INT" 'Ol  T-“** 

^80  FORX=0TO2O  GOSUB200 = SYS7392 - P0KE36373 • 1 5  P0KE36878 , 0 
790  SYS JO  I FPEEK  < 1 OP 1 > = 1 THENX=X+ 1 • GOTO830 

300  NEXT  F ORX=20T O0STEP— 1  - G0SUB7 1 0 = SYS7392  P0KE36878 ,15: P0KE36878 , 0 
810  S'-’SJO  IFPEEK<  1001  >=1THEN530 
820  NEXT  GOTO7S0 

830  I F  <  PEEK  t.  38223  >  AND  1  > =8THEHSVS7392 

840  L0= l O : FOPX=XTO20 : GOSUB20O  P0KE36877 , 250 : P0KE36878 ,15: P0KE36878 , 0 : HEXT 

845  : 

846  REM  JETZT  OEHTS  RB  IN  DEN  ERSTEN  AUFZUG 

847  • 

850  TI$="000100"  LE=0 

860  P0KE36879 , 8  P0KE4953 , 2 : SYS7360 

87Ö  FORT=2TO20STEP2 : flfl=INT(RND< 1 >#18) : flfl=4096+T+flfl#22 

880  POKEflfl ,  32 :  POKEAFI+ 1 , 32 :  POKEflfl+22 ,  32 :  POKEflfl+23 , 32 :  POKEfifl+  44 , 32  =  POKEAA+45 , 32 
890  F'OKEflfl+ 66 ,  32  POKEflfl+67 , 32 :  NEXT 

900  P0KE36877, 0 : P0KE36876  0 : P0KE36875  0 ' P0KE36874, 0 : LO=50 
9 1 0  Y= 1 9  - X=0 : P0=832  GOSUB200  P0KE7256 , 1 50 
920  SYS  JO  IFPEEKC  1000>O22THENGOSUB2540  G0T0929 
930  P0=SC+X+Y#22  •'  X=X+2 


Teil  2  sowie  der  Teil  3  einge¬ 
geben  werden. 

Listing  2:  Maschinenspra¬ 
che/Grafik. 

In  diesem  Teil  befinden 
sich  die  Maschinenroutinen 
und  die  Grafik  des  Spiels. 
Nach  dem  Eintippen  sollte 
man  das  Programm  zwar  aus 
Sicherheitsgründen  abspei¬ 
chern,  aber  es  wird  bei  der 
lauffähigen  Version  nicht 
mehr  gebraucht,  da  es  den 
notwendigen  Programmteil 
selbst  auf  Kassette/Diskette 
ablegt. 

Listing  3:  Basic. 

Hier  ist  das  Hauptpro¬ 
gramm  des  Spiels  in  Basic 
abgelegt. 

Vorgehensweise: 

*  Lader  abtippen  und  ab¬ 
speichern 

*  POKE44,32:POKE8 192,0: 
NEW  eingeben. 

*  Maschinensprache/Grafik 
abtippen  und  abspeichern 

*  Maschinensprache/Grafik 
mit  RUN  laufen  lassen  (er¬ 
stellt  Maschinenspracheteil 
des  Programms)  und  danach 
abspeichern,  indem  man  auf 
die  obere  Zeile  geht  und 
<  RETURN  >  drückt. 

*  Computer  kurz  ausschal¬ 
ten  und  wieder  einschalten 
(wegen  der  verbogenen 
Pointer) 

*  Basic-Teil  abtippen  und  ab¬ 
speichern  mit  SAVE"UG. 
BAS"  (,8  bei  Floppy). 

*  Wenn  man  Besitzer  einer 
Floppy  ist,  war  das  alles  und 
man  kann  das  Spiel  laden 
und  starten  mit  »LOAD "LA¬ 
DER", 8  und  RUN). 

*  Als  Besitzer  einer  Dataset- 
te  empfiehlt  es  sich,  den  La¬ 
der,  den  Maschinenteil  und 
den  Basic-Teil  in  dieser  Rei¬ 
henfolge  auf  Kassette  zu 
bringen  und  dann  durch  La¬ 
den  und  Starten  des  Laders 


940  I FPEEK  <  PO+2 ) O320RPEEK <  PO+24 > 032THEN :  X=X-2 :  GOTO980 

950  X=X-1 : GOSUB20O  =  X=X+1  GOSUP20O  P0KE36873, 1 5 : P0KE36878, 0 : P0KE7256, PEEK  <7256 > -6 
960  IFX=20THENJ000 
970  GOTO920 

980  PF:  INT  "ZI"  P0KE36879, 8 :  P0KE36877,  150:  FORT=15TO0STEP-.3  -POKE3S878.-T  NEXT: 

990  POKE 198,0: GOT 0850 

995  : 

996  PEM  ACHTUNG  HILDE  ZAHLEN  !!! ! 

997  = 

10O0  G08UB2700 

1010  P0KE36879, 25 :  PR  INT  "3*44  H  IIHI  I-H-4-H  I  H-  FH" ; 


zu  beginnen. 


(Oliver  Joppich) 


1O20  PF: INT "4 
1030  PR INT "4 
1040  PRINT"4 
105O  PP INT "4 
I960  PR INT "4 
1070  PRINT "4 
1080  PP INT "4 
1090  PR INT "4 
1160  PP I NT " 4 
1110  PRINT" 4 
1120  PR INT "4 
1130  PR INT "4 


+1  I- HU  H  11  M  II  I 


4444- 


44-44- 


1140  PRINT"+HH  I  I  1  44 


4 
4 

-H-H-H-f4"J 


4" ; 
4"; 
4"; 
4"; 
4"; 
4"; 
4"; 
4"; 
4"; 
4"; 
4"; 
4"; 


r-.'X 

60 


,-th^30 


124 
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1150  PRINT"+ 
1160  PR I NT " + 
1170  PRINT “+ 
1180  PRINT "4 
1180  PR I NT " 4 
1290  PR INT "4 
1210  PRINT" 
1220  PRINT" 


4 

4 

4 


4"; 

4"; 

4"; 

4"; 

4": 

4".: 

<".• 


1 230  PR I NT " 4  H  44 H  I  H  H-t  l-H  I  <  I  I  I"  j  :  POKE460 1-91 :  P0KE38393 ,  2 
1 240  X=0 : V=20  =  G0SUB2 1 0 : LO= 1 5 : fit =T 1 t ■ T I *=  » 000000 " 

1250  2E=1 : F0RT=1TÜ5 

1 260  fl»RND <  1 ) *70+  (  T- 1  >  *90+3C :  I FPEEK  < R > 032THEN 1 260 
1 270  R < T>=R:  POKER ..  1 1 2+T :  POKER+33792 ,  RND <  1  > *5+2  •  HEXT 
1 280  P0KE37398, 0 : PGKE37399 • 0 

1 290  P0KE4 1 07 , VRL  < R I GHT$ < T 1 1 , 1 ) >  + 1 1 2  P0KE4 1 06 , VRL <  M I D$  <  T I $ , 5 , 1 >  > + 1 1 2 
1300  I FT I >3600THEN2726 

1310  SyS JO : JH=PEEK< 1009) : I FPEEK < 1 00 1>=1 THEN 134© 

1320  I FJW=23THEN 1 290 

1330  Z5=-N0TZ5flND  1 5 :  IFZ5O0THEN1390 

1 340  P0KE36373 ,15= P0KE36876 , 244 : P0KE36377 , 0 : P0KE36875  0  P0KE36374 , G 
1350  Z 1  =  I NT < RND < 1 > *5+ 1 >  I FPEEK < R <Z 1 >  X 1 1 20RPEEK < fl C Z 1 >  » 1 2 1 THEN 1 330 
1360  Z2=INT<RND<1)*5+1>  :  IFZ2=Z10RPEEK(fl<22>Xl  120RPEEK<RCZ2>  »121THEN1339 
1370  23=PEEK < fl < ZI  >  )  :  POKER < Z 1) ,  PEEK< fl < Z2 >  >  =  POKER < Z2 ) ,  Z3 
1 380  P0KE36373 , 0 • P0KE36876 ,  0 

1390  XX=0 = VV=0 = P2=0 ■ SP=SC+X+V*22+23~PEEK< 1000> = IFJW=22THEHP1=1 : P2=23 : XX=1 : JIJ=1 
1 400  I FJW=24THEHP 1 =0  =  P2=22  =  XX=~ 1 : JU=2 
1 4 1 0  I  FJW=  1 THEHP 1  =22  =  F'2=23 :  VV=  1 :  JIJ=3 
1 420  I FJW=45THENP 1=0: P2= 1 : VV=- 1 : JU=4 
1430  IFP2=0THEN1290 

1440  P3=PEEK<SP+F'l  >  :  P4=F'EEK<SP+P2>  :  IFP2=91ORP4=91THEN1290 
1 450  QW= 111 FP3>9 1 0RP4>3 1 THENCOSUB 1 530 
1460  IFQW=0THEN1290 

1 470  X=XX+X : V=VV+V : I FX=20THENT I : GOTO 1 580 
1480  IFX=20THENX=X-1- GOTO 1290 

1498  IFV<1THENV=1 :  GOTO 1290  Listing  3.  Das  Basicprogramm 

1500  ONJUGOSUB200.-  710.-  2580..  2640  von  »Underground«  (Fortsetzung) 

1510  PQKE36878 , 15  =  P0KE36373 .•  0 :  GOTO  1 298 
1520  GOTO 1290 
1530  QU=0 

1 540  I FP3=ZE+ 1 1 20RP4=ZE+ 1 1 2THEHZE=ZE+ 1 : QN= 1 

1 559  I  FQW=  1 THENP0KE36878 ,  1 5  '•  P0KE36376 , 220  =  FORT»  1 80TO248 '  P0KE36876 ,  T :  NE'  :7  :  P0KE368 
76 .-  0  POKE36878 .•  © 

1560  IFZE=9THENGW=2 
1570  RETURN 

1 580  P0KE36877 , 234 : FORT=0TO 1 5STEP . 2 ' P0KE3S878 .  T : P0KE3837 1 ,  T  ‘2 • P0KE38349 ,  T  '2 ' HEXT 
1 590  FORT=0TO  1 000 :  HEXT  •  GOSU3200 :  FORT=0TO22 '  POKE  ^0|+T ,  1 49 

1596  REM  CATCH  THE  PI PLI PS  ! ! ! 

1597  = 

1 600  LE= 1 : GOSUB2700 : ZQ=6 

1610  P0KE3S878, 0 ■ P0KE3S876 , 0 ■ P0KE36879, 8  SVS7424  P01E36879. 24 ' PQKE3637?  0 

1611  ZQ=ZQ~1 

1620  CP=4 1 1 7 : I FZQ< 1 THEN 1 660 
1630  FORT=lTOZQ 

1640  PI=SC+RND<  1  >*505  ■  IFPEEKCPI X>32THEH1649 
1 650  POKEP I , 1 03 : POKEP I +33792 , 0 : HEXT 

1 660  POKEPO  .■  1 06  POKEPO +33792 ,  4  :  POKE36878 ,15'  POKE468 1,102:  P0KE38°93  •  2 '  POKE4600  •  82 
1 670  SYS JO : WE-PEEK < 1 000 > : I FWE=23THEN 1 670 

1 680  CC=CC+ 1 AND3 : I FCC=0THEHPOKECP , 1 60 • CP=CP+22 ; P0KE36877 . 240 : PÜKE8637P. ■ 1 5 
1690  I FCP>4579THEN 1 770 
1 70O  I FCC= 1 THENP0KE36877 , O 

1710  POKEPO , 32 : P0=P0+23-HE : I FPEEK ( PO  > 032RHDPEEK <  PO ) 0 1 03RNDPEEK < PO  X> 1 82THENPC» 
P0-23+WE 

1720  I FPEEK < PO  >  =  1 03THENPOKE36377 , 0 ■ P0KE36873,  15 : FORTT=0TO5 : F0RT=233T0239 

1721  P0KE36876, T 

1739  I  FPEEK  <  PO  )  =  1 03THEHPOKEPO+33792  .•  RNDC 1  )*3 :  HEXT  HEXT :  GOTO1610 

1 740  I  FPEEK  <  F'0  >  =  1 02THEN 1 800 

1 750  POKEPO , 1 06 : POKEPO+ 33792 , 4 • P0KE36873 ,15= P0KE36878 , 0 
1 760  FORT=0T0000 : HEXT ' GOTO 1 670 

1770  P0KE36879 , 8  :  PRI NT " KV  r  A  "  PRINT"'?!  *1  f_|  tl  LE=0 
1789  P0KE36876, 220 : P0KE36877, 0 = POKE36878, 0  FORT=0TO224 ; P0KE36878, T : HEXT 
1731  P0KE3S376, © 

1 730  FORT=0TO200Ö : HEXT : GOTO 1 600 

1795  : 

1796  REM  DER  flUFZUEGE  ZWEITER  TEIL 

1797  : 

1 300  POKEPO , 1 06  =  P0KEP0+33792 , 4  SVS5O00 ' FORT=0TO500  HEXT : GOSUB2700 

1810  P0KE36879 , 30 : P0KE4953 , 2 : SVS7360 

1 820  FORT=2TO20STEP2 : Afl= I NT < RND CI > * 1 8 > ■ AA=409S+T+fifl#22 

1 830  POKERfl ,  32  :  POKERR+ 1 , 32 '  POKEFIR+22 , 32 :  PÖKEfifl+23 ,  32 :  POKERR+44  32  •  POKEflfl+4 5 . 82 
184©  IFT/4=  I  NT  <  T/4  > THENF'OKEflfl+66 , 32 :  PQKEflfl+67  ■  32 

1859  HEXT '  P0KE36877, 6 :  P0KE3S87S,  8 :  P0KE36875,  Q  ■  P0KE368^4  0 :  LO=50 

1 860  V= 1 9 : X— Q : P0=832 : GOSUB200  P0KE7256 ,110 

1 87©  SYS JO : I FPEEK  C 1 000 ) O22THENGOSUB2540 : GOT0 1 870 
1 880  P0=SC+X+V*22 : X=X+2 

1 890  I  FPEEK  <  PO+2  )  O320RPEEK  <  PO+24  > 032THEH :  X=X-2 :  GOTO  1 93  0 

1900  X=X-1 : GO3UE200 : X=X+1 : GOSUB280 : P0KE36873.  15  P0KE36378, 9 • P0KE7256. PEEKC 72355- 

10 

1910  I FX=20THEN 1 950 
1920  GOTO 1870 

1 930  PR  I  NT  "  ZI"  :  P0KE36879 , 8 :  P0KE36877  1 58 :  FORT»  1 5TO0STEP- -  8 :  P0KE3697R .  t  HEXT 
1940  GOTO 18 10 

1950  FORT=0TG200 : HEXT : GOSUB27RR 
1955  : 


Druckfehler¬ 

teufelchen 


Hier  bin  ich  wieder. 
Auch  in  der  Ausgabe  5 
des  64'er  Magazins  ist  es 
mir  mit  viel  Mühe  gelun¬ 
gen,  erfolgreich  zuzu¬ 
schlagen.  Mir  gelangen 
die  Attacken  vor  allem 
dort,  wo  die  Herren  Re¬ 
dakteure  in  Zeitnot  gerie¬ 
ten.  Dann  passierte  es, 
daß  sie  sich  auf  die  Anga¬ 
ben  der  Programmein¬ 
sender  verlassen  muß¬ 
ten.  Diese  sind  nämlich 
durchaus  in  der  Lage,  ein 
Listing  zu  schicken,  das 
mit  der  aktuellen,  lauffä¬ 
higen  Version  nicht  über¬ 
einstimmt. 

Das  ist  dann  ein  gefun¬ 
denes  Fressen  für  mich 
und  ich  schlage  erbar¬ 
mungslos  zu. 

Supergrafik,  Seite  81: 

In  Zeile  4030  muß  es 
heißen  ...  THEN  BC  = 
BC  +  1:  .... 

Wörter  werfen,  Seite  87: 

In  Zeile  260  müssen  die 
42  mal  Space  nicht  hinter 
dem  Ausführungszeichen 
stehen,  sondern  direkt 
nach  dem  reversen  Herz, 
innerhalb  der  Anfüh¬ 
rungszeichen. 

Den  größten  Erfolg  hat¬ 
te  ich  im  Programm 
Diskettenzauberei,  Seite 
89: 

Dort  gelangen  mir 
gleich  4  Fehler: 

Zeile  1120:  Hinter 

PRINT  #1  muß  ein  Kom¬ 
ma  stehen. 

Zeile  1200  und  1260: 
Schreiben  Sie  vor  dem 
Doppelpunkt  ein  Semiko¬ 
lon. 

Zeile  1250:  Hinter  B-P  muß 
ein  Doppelpunkt  stehen. 
Zeile  1260:  Schreiben  Sie 
G%  anstatt  R% 
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1955  REM  JETZT  KOMMT  DIE  GLIBBERBAHN 
1957  - 

1 969  PQKE7645 , 234  •  SYS7424  '■  P0KE36879 , 26 :  HF=4 101:  P0KE3S87? , 0  PÜKE36876 , 6 
1961  P0KE3S873, 15 

1970  PRINT"?®!  " : F0RT=41 1 7TO4608STEP22 '■ POKET, 32 ' HEXT ■ REM  22 

SPACES 

1971  POKET-23, 32 

1 980  P0KE7645 , 96 :  P0=4 1 40  ■  POKEPO ,  1 06  P0KEP0+33792 .•  4  P0KE36876 .  0  P0KE4S96 ,  1 02 
1 990  PQKE37838 , 2 : EN=23 

2000  I FPEEK < DF) = 1 06ORPEEK < SS93-DF  > = 1 06THENPQKEPO  95 : COTO2080 
2010  P0KE36877.- <DF-4096>/8+188  POKEDF , 93 ; POKEDF-44  32  BF=DF+44 
2020  P0KE8737-DF , 95 : P0KE878 1 -DF , 32 
2030  IFDF>4629THENDF=4101 
204O  P0KE36877 , 0 

2053  I FEU=23THENSYS JO ■ UE=PEEK < 1 300 > : I FWE*23THENWE»EN 
2060  EW=NE • POKEPO, 32 : P0=P0+23-HE 

207O  I  FPEEK.  <  PO  > 032ANDPEEK  <  PO  > 095ANDPEEK  <  PO  >  0 1 02THENPO=PO-23+HE  =  E! 4=23 

2080  I FPEEK  < PO  >  =95THENP0KE36879 .  8  P0KE36877  220  =  FORT=15TC'0STEP- . 5 ‘ PQKE3687S  T 

2093  I FPEEK  < PO  > »95THENNEXT : LE=2  GOTO 1 300 

2100  I FPEEK  < PO  > = 1 02THEN2 1 20 

2110  POKEPO, 106 : PQKEPO+33792,4 : OOTO2000 

2120  GOSUB2700  PF: INT "3"  X=20 =  V*20  =  GOSUB710  =  OOSUB2740 

2130  PRIHT":^I  I - y“  GOSUB2740 

2140  PRIHT"W*Irrn  r,  l**~":PRINT"W«B5  l  /  /Nl  ■  P0KE4255.  1 1 1+ZE  I FZE<6THEN2  ' 56 

2 1 50  GOSUB2740 : 1 FZCl=6THEMPR I NT " »Dffik.  *■  /V" , : G0T02493 

2160  PRINT "MflWk.  L  : F0RT=1T05-ZQ  PRINT"?*  I";  HEXT  IFZQO0THEH2490 

2170  PRINT"-il  *>•  ~L-.  1* "  GOSUB2740 

2 1 80  FORT =0TO HO' P0KE36878 ,15- P0KE646 ,  RHD < 1 > *7+ 1 

2181  PR  I  NT "  F,  HFL*—  I  I“  I  *\- 

2190  P0KE36874, 212+T/3 : P0KE36875  T/2+191 : P0KE36876, 127+T : HEXT  POKE 36878  G 

2191  POKE36877 , 0 

2200  P0KE36375 , 0  P0KE35875 , 0 ' P0KE36874 , 0  P0KE38877 , 254 ■ FORT= 1 5T00STEP- -  2 

2201  P0KE36878 .  T 

22 1 0  HEXT  P0KE36878 , 0  P0KE36877 , 0 

2230  LO=70: V=17  FORX=20TO18STEP-1 : C0SUB710 ‘pÖKE36878, 15  P0KE36873. 8 
2248  PQKESC+X+Y#22+46 ,32: HEXT 

2250  FORTQ=0TO 1 0  =  SYS7 1 68 : F0RTT=8T0 1 00  NE!  CT  HEXT 
2260  PR  I HT  "  <<<<<<<<<<<< 

2278  PRINT"?»  N  H  N  N  0 

2280  PRINT"N  0+-  N  +  H  t  +  0+ 

2290  PRINT" t  t+NHt  0+  t  10+  T+N" ; 

2380  PR  I  MT  "  TO  T+-<-TTNO++-N  WO  tt+N +++-"  ; 

2310  PRINT"  f+1++tT+1+++-tT+ff+tT++" ; 

2320  PR  I  NT  "  t+ T-m- t T-+T+++-TT-et T+T  T++-" ; 

23^0  FQREE=37S88T037888+22 : E1=RNB< 13*7+1 =  POKEEE, El : POKEEE+2?  El  POKEEE+44  El 
2331  POKEEE+66  ,  E 1  64€R  QnUPtf^' 

2340  • POKEEE+88, El : POKEEE+1 10,  El = NEXT  ^  x 

2350  PR I HT "  F,  /TO  l*—1  T—J 

2360  PRINT"MRIi  F/_  I  Kl  Br.: 

2370  A$=TI$-F0RT=3T04  =  P0KE4478+T,  ASC<MIB*<A*,  T,  110+64  =  NEXT  PRINT'V/ A 

2380  F0RT=5T06 :  P0KE4498+T,  ASC<f1ID$<A$,  T,  1  >  >+64 :  NEXT  =  PRINT"WiM*W»»M»l»_-fV-» 

2390  P0=828 

2400  P0KE646 ,  RND <  1  >*8+1 : PRINT" _T_  /~o  I  *\_"  : 

2410  SYS JO : IFPEEK  <1 00 1 > = 1 THEH850 
2420  X=X+ 1 : V-6 = IFX*21THENX=8 

2430  GOSUB200 : P0KE36878, 15 : P0KE36878 -  0  GOTO2480 
2440  END 

2450  PRINT"  SMRMHKII  nT-~  t-l  fit-./  III III" 

2460  PRINT"SWW  ~L~** 

2470  SYSJO : IFPEEK<1001)=0THEN2470 
2480  G0T085Q 

2490  PRINT"  “K~L-.lt"  :GOSUE2740 

2491  PRINT  "MIDMI  t~~  \T— - h~L-.lt WS*» I  t-l  *1  t-./  11119  1" 

2500  PRINT  "MUR  ~L~tt 

25 1 8  SYSJO : I FPEEK  < 1 88 1 > “0THEN25 1 0 
2528  G0T0858 
2538  GOTO2530 
2546  SYS71 68 

2558  I FPEEK  <  SC+X+YK22 >  <>0THENY=Y- 1 
2568  I FY<0THENY=2 1 
2578  RETURN 

2588  POKEPO ,  32 :  POKEPO+ 1  32  •  P0KEP0+22 , 32  s  POKEF'O+23 , 32 
2598  Ffl=C0+X+Y*22  =  A=4  :  POKEFfl,  A  :  POKEFA+1 ,  A :  POKEFA+22,  A  '•  POKEFA+23,  fi 
2600  P0=SC+X+Y#22  '■  POKEPO,  163  POKEPO+1, 164  POKEPO + 22, 179 •  P0KEP0+23, 180 
2610  F0RT=8T0L0 : HEXT 

2628  P0=SC+X+Y#22 ■ POKEPO, 161  POKEPO+1 , 162 ' P0KEP0+22, 177 : P0KEP0+23, 178 
2630  RETURN 

2640  POKEPO , 32 : POKEPO+ 1.32: PQKEPO+22 , 32  POKEPQ+23 , 32 
2550  FA=C0+X+V#22 : B=4 : POKEFA.-A  POKEFfi+1 , A : POKEFA+22, A : POKEFA+23. A 
2660  P0=SC+X+V*22  POKEPO, 161 : POKEPO+1 , 162  P0KEP0+22, 177 : POKEPQ+23, 178 
2670  FORT=0TOLO  NEXT 

2680  P0=SC+a+V*22 ' POKEPO. 163 : POKEPO+1 , 164  P0KEP0+22, 179  P0KEP0+23, 180 
2690  RETURN 


£700  P0KE36879 , 8 : LE=LE+ 1  : PRINT" ^««WiSWWITOM  F  /  !+>r  \*t !  MBMLKTL  " ;  ‘  FO 

RT=1T0LE 

27 1 0  PR I HT " mn ; : SYS7296 : HEXT : FORT=0TO3000 : NEXT : RETURN 

2720  P0KE36879, 8 :  PRINT " nWDSWWWWlall  -  -,t  r  A  "  :PRINT'K!HWI  -  I  *!  *--/  L“>CL  S";:LE=0'S 

Y87296 

2730  FORT=8TO3000  NEXT = GOTO850 

2748  P0KE36876 , 0  P0KE36877 , 8  FORT* 1 5TO0STEP- . 2 : P0KE36878 , T : P0KE36876 , 239-T : HEXT 
2758  RETURN  ....  „  n  D  . 

2760  GQTO2760  Listmg  3.  Das  Basicprogramm 


READY. 


von  »Underground«  (Schluß) 


Druckfehler- 
— teufeichen — 

Zeile  1280:  Tauschen  Sie 
das  Semikolon  gegen  ein 
Komma  aus. 

Buchbesprechung: 
Commodore  64.  Der  Com¬ 
puter  für  Einsteiger  und 
Aufsteiger,  Seite  96: 

Kostet  nicht  49,80  Mark, 
sondern  29,80  Mark. 

Commodore  64  —  Pro¬ 
grammieren  leicht  ge¬ 
macht 
Seite  97 

Auch  dieses  Buch  konn¬ 
te  ich  teurer  machen  als 
es  ist:  Anstatt  49  Mark  ist 
es  bereits  für  34  Mark  zu 
haben. 

Grafikkurs,  Seite  110,  Spal¬ 
te  1: 

Die  Überschrift  soll  hei¬ 
ßen:  »Die  Enttarnung  ...« 
und  nicht  die  Entartung. 

Seite  111,  Spalte  1, 17.  Zei¬ 
le  von  unten: 

Dort  muß  natürlich  ste¬ 
hen:  $  FF  und  nicht  $  F. 

Seite  112,  Spalte  1,  21.  Zei¬ 
le  von  oben: 

Gemeint  ist  die  Tabelle 

1. 

Seite  115,  Tabelle  2: 

In  der  Spalte  mit  dem 
Label-Namen  muß  es  un¬ 
ter  FRETOP  heißen 
MEMSIZ  statt  MEMZIZ 

Seite  113: 

Hier  habe  ich  gewürfelt 
und  ganze  Absätze 
durcheinander  gewor¬ 
fen: 

Spalte  1,  unten:  Bis  zu  dem 
Satz  »Nehmen  wir  an,  ein 
Byte  sähe  binär  so  aus: 
1111  1011«  ist  noch  alles  in 
Ordnung.  Dann  muß  man 
weiterlesen:  Spalte  2,  Zei¬ 
len  12-10  von  unten.  Da¬ 
nach  folgt  die  in  Spalte  1 
gezeigte  AND-Operation, 
in  die  sich  beim  Ergebnis 
aber  noch  ein  Fehler 
geschlichen  hat.  Es  muß 
nämlich  herauskommen: 
0000  1011.  Weiterlesen 
sollte  man  nun  in  Spalte  2, 
Zeile  9  von  unten  bis  Spal¬ 
te  3,  Zeile  3  von  oben.  Erst 
danach  folgt  der  Text  aus 
Spalte  1,  Zeile  3  von  unten: 
»Halt!...«  bis  Spalte  2,  Zeile 
13  von  unten:  »...überse¬ 
hen  (Tabelle  4)«.  Schließ¬ 
lich  geht  es  dann  normal 
weiter  ab  Spalte  3,  Zeile  4 
von  oben. 
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Das  Buch  »Mathematik  auf 
dem  Commodore  64«  liefert 
fertige  Programme,  Anre¬ 
gungen  und  Erläuterungen 
für  mathematische  Pro¬ 
bleme. 

Die  Hauptschwerpunkte 
dieses  Buches  liegen  auf  der 
Mehr-Register-Arithmetik, 
der  Zahlentheorie,  der  Kom¬ 
binatorik  der  Algebra,  der 
Geometrie  und  der  numeri¬ 
schen  Mathematik.  Diese 
Kapitel  sind  dann  in  einzelne 
Berechnungsprogramme 
unterteilt.  So  wird  das  Kapi¬ 
tel  Zahlentheorie  in  die  fol¬ 
genden  vier  Berechnungen 
unterteilt:  der  Berechnung 
von  ir  auf  1000  Stellen  genau, 
der  Berechnung  der  Eu- 
ler'schen  Konstanten  auf 
1000  Stellen  genau,  die  Line¬ 
are  Diophantische  Glei¬ 
chung  und  der  Ketten¬ 
bruch/Bruchapproximation. 
Diese  komplizierten  Berech¬ 
nungen  sollten  Sie  allerdings 


nicht  abschrecken,  denn 
auch  wesentlich  einfachere 
Berechnungen  sind  vertre¬ 
ten. 

Das  Buch  »Mathematik  auf 
dem  Commodore  64«  lohnt 
sich  sicherlich  für  alle,  die 
sich  in  der  Schule,  im  Beruf 
oder  im  Hobbybereich  mit 
mehr  oder  weniger  schwe¬ 
ren  Berechnungen  abmü¬ 
hen.  Zum  Ende  sei  noch  be¬ 
merkt.  daß  man  alle  im  Buch 
behandelten  Programme  auf 
einer  Diskette  erhalten  kann. 

(rg) 


D.  Herrmann  —  M.  Weber,  Mathematik  auf 
dem  Commodore  64,  252  Seiten,  IWT- 
Veriag  GmbH.  Vaterstetten  bei  München. 

ISBN  3-86  322-048-5.  Preis  42.-  Mark. 


Ursprünglich  für  Steue¬ 
rungsaufgaben  bei  Radiote¬ 
leskopen  entwickelt  und  vor 
fünf  Jahren  noch  so  gut  wie 
unbekannt,  hat  Forth  in  letzter 
Zeit  eine  relativ  große  Ver¬ 
breitung  auf  allen  gängigen 
Mikrocomputern  gefunden. 
Das  vorliegende  Buch  von 
Ronald  Zech  gibt,  ausgehend 
vom  F.I.G.-Forth  Standard 
(F.I.G.  steht  für  Forth  Interest 
Group),  eine  umfassende 
Darstellung  von  Sprachstruk- 
tur  und  Programmiermög¬ 
lichkeiten. 

Die  eil,  . en  Kapitel  beschäf¬ 
tigen  sich  neben  dem  allge¬ 
meinen  Aufbau  von  Forth 
auch  mit  grundlegenden  Pro¬ 
grammiertechniken.  Aus¬ 
führlich  behandelt  werden 
die  in  Forth  zur  Verfügung 
stehenden  Kontrollstrukturen 
und  die  vielfältigen  Möglich¬ 
keiten  zur  strukturierten  Pro¬ 
grammentwicklung.  Ein  gan¬ 
zes  Kapitel  ist  für  die  Kurzbe¬ 
schreibung  aller  Worte  des 
F.IG.-Forth-Vokabulars  reser¬ 
viert,  wobei  allerdings  auch 
auf  andere  Forth-Versionen 
und  insbesondere  auf  den 
Forth-79-Standard  eingegan¬ 
gen  wird. 

Die  beiden  letzten  Ab¬ 
schnitte  des  Buches  wenden 
sich  ausschließlich  an  den 
fortgeschrittenen  Program¬ 
mierer.  Behandelt  werden 
hier  unter  anderem  Zahlen¬ 
formatierung,  Rekursive  Pro¬ 
grammierung,  Compiler-An¬ 
weisungen  und  die  Erzeu¬ 
gung  spezieller  Strukturen 
mittels  (BUILDS  ...  DOES). 
Schließlich  erfährt  man  noch 
einiges  über  die  I/O-Konzep¬ 
tion  von  Forth,  speziell  über 
die  virtuelle  Speicherverwal¬ 
tung  und  über  die  Installation 


Zech 


Die  Programmiersprache 


FORTH 


von  Forth  auf  verschiedenen 
Systemen. 

Ganz  sicher  ist  dieses  Buch 
nicht  für  den  Anfänger  ge¬ 
schrieben.  Wer  jedoch  schon 
über  gewisse  Grundkennt¬ 
nisse  verfügt  und  sich  tiefer  in 
diese  eigenwillige  Sprache 
einarbeiten  will,  der  findet 
hier  neben  einer  recht  syste¬ 
matischen  Darstellung  auch 
eine  Vielzahl  nützlicher  Hin¬ 
weise  für  spezielle  Problem¬ 
lösungen.  Zahlreiche,  nicht 
immer  ganz  einfache  Aufga¬ 
ben  mit  Lösungsvorschlägen 
sind  zur  Selbskontrolle  beim 
systematischen  Erlernen  der 
»höheren»  Forth-Program- 
mierung  sehr  hilfreich. 

Der  Anhang  enthält  unter 
anderem  auch  vollständige 
Listings  eines  Vokabulars  zur 
Stringverarbeitung  und  je  ei¬ 
nes  6502-  und  8080-Assem- 
blers  in  Forth. 

Zahlreiche  Übersichtstafeln 
und  Tabellen  sowie  ein  über¬ 
sichtliches  Literatur-  und 
Sachverzeichnis  machen  das 
Buch  auch  zu  einem  unent¬ 
behrlichen  Nachschlage¬ 
werk  für  jeden  F.I.G.-Forth- 
Anwender.  (ev) 

Ronald  Zech:  Die  Programmiersprache 
FORTH.  312  Seiten,  Franzis-Verlag  GmbH 
München  1984,  ISBN  3-7723-7261-9.  Preis 

49.80  Mark 
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Nun  ist  es  endlich 
so  weit!  Wir  gehen  an  die 
praktische  Entwicklung 
von  Programmen  heran. 
Außerdem  wird 
Strubs  noch  um  ein 
kleines  RENUMBER- 
Programm  erweitert. 
Die  Syntaxdiagramme  der 
Basic-Erweiterungen 
werden  das  Arbeiten  mit 
Strubs  erleichtern. 

Wenn  Sie  Quellprogramme 
schreiben,  achten  Sie  vor  al¬ 
lem  auf  folgendes:  Jeder  der 
neuen  Befehle  muß  durch  ein  Aus¬ 
rufezeichen  gekennzeichnet  wer¬ 
den,  zum  Beispiel  IREPEAT,  und  be¬ 
nötigt  —  außer  IDO  —  eine  eigene 
Programmzeile.  Folgende  Konstruk¬ 
tion  ist  also  zum  Beispiel  nicht  er¬ 
laubt: 

40  IREPEAT  X  =  X  +  1  IUNTIL  X>5 
Marken  beginnen  grundsätzlich  mit 
einem  Pfund-Zeichen  £. 

Um  die  Korrektheit  von  Konstruk¬ 
tionen  zu  überprüfen,  können  Sie 
die  Syntax-Diagramme  in  Bild  1  be¬ 
nutzen.  Wenn  sich  ein  Weg  entlang 
der  Linien  finden  läßt,  der  der  Kon¬ 
struktion  entspricht,  dann  ist  diese  in 
Ordnung.  Sie  können  sich  aber  auch 
an  den  verschiedenen  Beispielen 
im  Rahmen  dieser  Artikelfolge 
orientieren.  Das  beste  Beispiel  für 
ein  Quellprogramm  erhalten  Sie, 
wenn  Sie  die  Programmdiskette  mit 
dem  Programm  Strubs  bestellen 
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(wird  aller¬ 
dings  erst  ab  der  näch¬ 
sten  Ausgabe  angeboten).  Diese 
Diskette  enthält  neben  dem  lauffähi¬ 
gen  Objektprogramm,  das  m  der 
letzten  Ausgabe  abgedruckt  wurde, 
auch  das  ausführlich  dokumentierte 
Quellprogramm  von  Strubs,  dessen 
Abdruck  aus  Platzgründen  nicht 
möglich  ist. 

Bei  der  Blockschachtelung  ist  dar¬ 
auf  zu  achten,  daß  sich  verschiede¬ 
ne  Blöcke  nicht  überschneiden  dür¬ 
fen  und  daß  jeder  Block  korrekt  ab¬ 
geschlossen  wird.  Hierbei  kann 
man  sich  immer  das  Beispiel  der 
FOR-NEXT-Schleifen  in  Basic  vor 
Augen  halten.  Vollkommen  unmög¬ 
lich  ist  beispielsweise  folgende  Kon¬ 
struktion: 

10  IREPEAT 
20  :  IWHILE  ...  IDO 
30  IUNTIL  ... 

40  :  IEWHILE 

Nun  wird  es  aber  allmählich  Zeit, 
mit  der  Praxis  zu  beginnen.  Laden 
Sie  das  Programm  Strubs  in  Ihren 
Computer  und  starten  es  mit  »RUN«. 
Nun  erscheint  ein  Menü.  Geben  Sie 
hier  »E«  ein,  um  in  den  Editbereich 
zu  gelangen  (siehe  dazu  die  erste 
Folge).  Der  Computer  meldet  sich 
mit  »READY«,  das  heißt  also,  Sie  be¬ 
finden  sich  jetzt  im  Direktmodus. 
Hier  können  Sie  nun  (fast)  so  arbei¬ 
ten,  als  sei  Strubs  gar  nicht  vorhan¬ 
den.  Geben  Sie  zunächst  »NEW«  ein. 
Jetzt  können  Sie  das  kleine  Pro¬ 
gramm  aus  Bild  2  eintippen  und  wie 
sonst  gewohnt  mit  »SAVE  "RENUM- 
BER.QP",8«  abspeichern. 

Mit  diesem  »QP«  hat  es  folgende 
Bewandnis:  Bei  Compilern  ist  es  all¬ 
gemein  üblich,  die  verschiedenen 
Files x  die  zu  den  einzelnen  Phasen 
der  Übersetzung  gehören,  einheit¬ 
lich  zu  kennzeichnen,  der  Austro- 
Compiler,  arbeitet  zum  Beispiel  mit 
den  Files  »name«,  »p/name«,  »z/na- 
me«  und  »c/name«.  Um  Quellpro¬ 
gramme  und  Objektprogramme 
auseinanderhalten  zu  können,  soll¬ 
ten  Sie  sich  entsprechend  von  An¬ 
fang  an  daran  gewöhnen,  dem  Pro¬ 
gramme  immer  ein  »QP«  für  Quell¬ 
programm  beziehungsweise  ein 


»OP«  für  Objekt¬ 
programm  hinzuzu¬ 
fügen.  Nun  kann  das  Programm 
übersetzt  werden.  Geben  Sie  ein 
»IRETURN«  und  es  erscheint  das 
Menü  von  Strubs.  Die  Übersetzung 
wird  mit  »U«  gewählt.  Strubs  fragt 
nun  nach  dem  Namen  für  das  Ob¬ 
jektprogramm.  Geben  Sie  ein:  RE- 
NUMBER.OP.  Da  das  übersetzte  Pro¬ 
gramm  direkt  auf  Diskette  geschrie¬ 
ben  wird,  achten  Sie  darauf,  daß  die 
Floppy  eingeschaltet  ist.  Nun  er¬ 
scheint  auf  dem  Schirm  die  Mel¬ 
dung  »1.  Lauf«,  gefolgt  von  der  Aus¬ 
gabe  der  Blockstruktur,  Nach  Been¬ 
digung  des  2.  Laufs  sollte  die  Mel¬ 
dung  »0  FEHLER«  erscheinen.  Ist 
dies  der  Fall,  dann  können  sie  mit 
»E«  wieder  in  den  Edit-Bereich  ge¬ 
langen.  Hier  steht  immer  noch  das 
Quellprogramm.  Um  sich  das  über¬ 
setzte  Programm  anzusehen,  laden 
Sie  es  mit  »LOAD  "RENUM- 
BER.OP",8«.  Es  sollte  mit  dem  Listing 
in  Bild  2  übereinstimmen.  Aber  star¬ 
ten  sie  das  Programm  nicht. 

Jetzt  übersetzen  Sie  einmal  genau¬ 
so  verschiedene  kleine  Testpro¬ 
gramme  —  zum  Beispiel  die  Beispie¬ 
le  aus  der  letzten  Folge  —  und  sehen 
sich  die  Ergebnisse  an.  Dabei  wer¬ 
den  Sie  feststellen,  daß  einige  Be¬ 
dingungen  im  Objektprogramm  in 
negierter  Form  erscheinen.  Daß  Ba¬ 
sic  keine  boolschen  Variablen 
kennt,  hat  eine  wichtige  Konse¬ 
quenz:  Beim  Test,  ob  eine  Variable 
ungleich  0  ist,  darf  man  nicht  —  wie 
dies  normalerweise  häufig  in  Basic 
formuliert  wird  —  beispielsweise 
schreiben 
IF  A  THEN  .... 

sondern  muß  bei  jeder  Bedingung 
die  vollständige  Form 
IF  A<  >0  THEN  ... 
verwenden.  Dies  liegt  daran,  daß 
die  Bedingung  NOT(A)  außer  für  —1 
immer  erfüllt  ist. 

Zweitens  kann  man  sehen,  daß  in 
den  Objektprogrammen  manchmal 
neue  Zeilen  auftauchen,  die  das 
Quellprogramm  nicht  enthielt. 
Strubs  generiert  solche  Zeilen  als 
Sprungziele.  Damit  immer  Platz  für 
solche  Zeilen  ist,  sollte  der  Abstand 
der  Zeilennummern  im  Quellpro¬ 
gramm  immer  mindestens  2  betra¬ 
gen. 

Ist  bisher  alles  wie  oben  beschrie¬ 
ben  verlaufen,  dann  können  Sie  sich 
freuen.  Sind  irgendwelche  Fehler 
aufgetreten,  dann  vergleichen  Sie 
noch  einmal  genau  das  Testpro- 
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Strubs 


Strubs 


gramm  mit  dem  Listing  in  Bild  2  und 
hoffen  Sie,  daß  der  Fehler  hier  liegt. 
Wenn  Sie  keine  Abweichungen  fest¬ 
stellen,  dann  haben  Sie  Pech  —  Sie 
haben  das  Programm  Strubs  falsch 
eingetippt. 

Wie  steht  es  aber  mit  Fehlern  im 
Quellprogramm?  Syntax-Fehler  kön¬ 
nen  sich  auf  drei  verschiedene  Ar¬ 
ten  bemerkbar  machen:  Vor  allem 
Fehler,  die  nicht  mit  den  neuen  Be¬ 
fehlen  Zusammenhängen,  führen 
wie  gewohnt  beim  Lauf  des  Objekt¬ 
programms  zu  den  bekannten  Feh¬ 
lermeldungen.  Fehler  in  bezug  auf 
die  neuen  Befehle  quittiert  Strubs 
mit  Abbruch  der  Übersetzung,  falls 
eine  Fortsetzung  nicht  sinnvoll  er¬ 
scheint,  oder  mit  Eintragung  in  eine 
Fehlerliste  und  gleichzeitiger  Kenn¬ 
zeichnung  der  fehlerhaften  Zeile  im 
Objektprogramm.  Die  Fehlerliste 
kann  man  sich  mit  »F«  ansehen. 

Ein  Abbruch  der  Übersetzung  mit 
entsprechender  Fehlermeldung  am 
Bildschirm  erfolgt  vor  allem  bei  Ver¬ 
stößen  gegen  die  Blockstruktur  (und 
bei  Speicherplatzproblemen  wie 
Stack-Overflow  oder  Listen  voll).  Bei 
Fehlern  mit  den  Blöcken  —  zum  Bei¬ 
spiel  vor  einem  ELSE  fehlt  das  IF 
oder  zu  einem  WHILE  fehlt  das  EW- 
HILE  etc.  —  gibt  es  ein  Problem,  das 
nicht  nur  bei  Strubs,  sondern  gene¬ 
rell  bei  allen  Compilern  auftaucht. 
Der  Fehler  wird  nicht  an  der  S:elle 
seines  Auftretens  bemerkt,  sondern 
erst  viel  später.  Die  Zeilennummer 
bei  einer  Fehlermeldung  wie 
»BLOCKSCHACHTELUNG:  AN¬ 

FANG  FEHLT«,  sagt  also  nichts  wei¬ 
ter  aus,  als  daß  der  Fehler  erst  hier 
bemerkt  wurde.  Um  bei  der  Suche 
nach  dem  Fehler  zu  helfen,  gibt 
Strubs  aber  während  der  Überset¬ 
zung  ein  Schema  der  Blockstruktur 
aus,  mit  dessen  Hilfe  sich  solche 
Fehler  leicht  lokalisieren  lassen. 

Bei  Meldungen  wie  »zu  viele  Mar¬ 
ken«,  »zu  viele  WHILE /REPE  AT«  etc. 
empfiehlt  es  sich,  das  Programm  m 
kleinere  Teile  zu  zerlegen,  diese  ge¬ 
trennt  zu  übersetzen  und  anschlie¬ 
ßend  wieder  zusammenzufügen. 

Wie  man  dazu  vorgeht,  behan¬ 
deln  wir  weiter  unten.  Die  entspre¬ 
chenden  Listen  sind  allerdings  so 
großzügig  dimensioniert,  daß  die¬ 
ser  Fall  sehr  selten  eintreten  wird. 

Sollte  während  der  Übersetzung 
aus  irgendeinem  Grund  ein  unkon¬ 
trollierter  Programmabbruch  erfol¬ 
gen  (zum  Beispiel  OUT  OF  MEMO¬ 
RY  ERROR),  dann  empfiehlt  es  sich 
mit  »GOTO  5000«  dafür  zu  sorgen, 
daß  offene  Disk-Files  ordnungsge¬ 
mäß  geschlossen  werden. 

130  32Ö? 


Die  Beseitigung  von  Fehlern,  die 
Strubs  bei  der  Übersetzung  ent¬ 
deckt,  gestaltet  sich  relativ  einfach: 
Notieren  Sie  sich  die  Zeilennum¬ 
mern  zu  jedem  Fehler  und  schalten 
in  den  Editbereich  (mit  »E«).  Dort 
kann  das  Quellprogramm  geändert 
werden,  dann  wird  mit »!« und  Wahl 
von  »U«  neu  übersetzt,  Da  das  Quell¬ 
programm  solange  im  Edit-Bereich 
bleibt,  bis  es  durch  »NEW«  oder  La¬ 
den  eines  anderen  Programms  ge¬ 
löscht  wird,  kann  dieser  Vorgang  so¬ 
lange  wiederholt  werden,  bis  der 


können,  erfordert  auf  der  anderen 
Seite  allerdings  eine  gewisse  Diszi¬ 
plin,  damit  die  Verbindung  zum 
Quellprogramm  nicht  verloren  geht. 
Jede  vorgenommene  Änderung 
sollte  sorgfältig  notiert  und  nicht  zu 
viele  Änderungen  auf  einmal  vorge¬ 
nommen  werden,  Dann  wird  wieder 
das  Programm  Strubs  und  das 
Quellprogramm  (in  den  Editierbe¬ 
reich)  geladen.  Verbessern  Sie  das 
Quellprogramm  entsprechend  Ih¬ 
ren  Notizen  und  übersetzen  es  er¬ 
neut.  Dieser  Vorgang  wird  solange 


54330  ' ********  REHUMBER  *************** 

55000  ERENUMBER :  PRINT"!]  *****  REHUMBER  #*****•" 

55010  ZR=40*256+l: INPUT "XW  STRRTNR. " ; ZN : INPUT  "  SCHRITTWEITE" • SW 
55020  !LQ0P 

55030  ••  IFPEEK<ZR+1)=0THEN  1EXIT  "FERTIG 

55040  :  HX=ZN/256 : POKE  ZR+2,ZN-HX*256:P0KE  ZR+3 , HZ : ZP=PFEK '  ZR )  +256*PEEK<  ZRM  > 

55050  :  ZN=ZN+SW 
55060  ! EL00P 
55070  RETURN 

RERBV. 


Bild  2.  RENUMBER-Queliprogramm  für  Strubs 


55000  PRINT"!]  *****  RENUMBER  ******" 

55010  ZR=40*25S+1 : INPUT" m  STRRTNR. "J ZN • INPUT"  SCHRITTWEITE" J SM 
55020  •• 

55030  I FPEEK  <  ZR+ 1 ) =0THEN550S 1 

55040  H>:=ZN/25S '•  POKEZR+2, ZN-HZ*25S  =  PÖKEZR+3, HZ : ZR=PEEK<ZRH256*PEEI«2R+1  > 
55050  ZN-ZN+SW 

55060  GOTO55020  _.  . .  - 

55061  ■  U1  "*■ 

55070  RETURN 

RERBV. 


Bild  3.  RENUMBER-Objektprogramm  für  Strubs 


letzte  Fehler  beseitigt  ist.  Sobald  die 
Übersetzung  mit  der  Meldung  »0 
Fehler«  beendet  wird,  geht  es  ans 
Testen  des  Objektprogramms. 

Hierzu  wird  Strubs  durch  Eingabe 
von  »S«  verlassen.  Dadurch  wird  ein 
Kaltstart  ausgeführt,  der  die  Inter¬ 
pretererweiterung  abschaltet  und 
den  Speicher  säubert.  Nun  laden 
Sie  das  Objektprogramm  unter  dem 
Namen,  den  Sie  bei  der  Überset¬ 
zung  angegeben  haben  und  starten 
es  mit  RUN.  Dieses  Programm  wird 
nun  wie  jedes  normale  Basic-Pro- 
gramm  ausgetestet.  Dazu  können 
selbstverständlich  auch  Toolkits  mit 
TRACE-  und  DUMP-Funktionen  ver¬ 
wendet  werden.  Da  die  Zeilennum¬ 
mern  denen  des  Quellprogramms 
entsprechen,  empfiehlt  es  sich,  ein 
Listing  des  Quellprogramms  zur 
Hand  zu  haben.  Fehler  in  der  Pro¬ 
grammlogik  lassen  sich  damit  leich¬ 
ter  finden  und  beheben. 

Die  Bequemlichkeit,  die  Strubs 
dadurch  bietet,  daß  Programmän¬ 
derungen  und  Verbesserungen  im 
Objektprogramm  selbst  vorgenom¬ 
men  und  sofort  ausgetestet  werden 


wiederholt,  bis  das  Ergebnis  zufrie¬ 
denstellend  ist. 

Dieser  soeben  beschriebene  Ab¬ 
lauf  kann  allerdings  in  den  meisten 
Fällen  vereinfacht  werden:  Bis  auf 
zwei  Ausnahmen  können  Objekt¬ 
programme  auch  direkt  im  Editbe¬ 
reich  getestet  werden.  Damit  entfällt 
die  Notwendigkeit,  Strubs  für  jede 
Übersetzung  neu  zu  laden.  Nach 
der  Übersetzung  wird  mit  »E«  der 
Editbereich  gewählt,  dort  das  Ob¬ 
jektprogramm  geladen  und  gete¬ 
stet.  Anschließend  wird  wieder  das 
Quellprogramm  in  den  Editbereich 
geladen,  verbessert  und  mit »!« und 
»U«  neu  übersetzt  und  so  weiter. 

Bei  Programmen,  die  nicht  im 
Editbereich  getestet  werden  kön¬ 
nen,  handelt  es  sich  1.  um  Program¬ 
me,  die  an  einer  festgelegten  Stelle 
im  Speicher  stehen  müssen.  Strubs 
selbst  ist  solch  ein  Programm.  Es 
muß  unbedingt  am  normalen 
Basic-Anfang  stehen.  Solche  Pro¬ 
gramme  sind  allerdings  ziemlich 
selten.  Häufiger  dagegen  findet  sich 
der  2.  Fall:  Programme,  die  den 
Speicherbereich  von  700  bis  800 
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verändern.  Hier  steht  die  in  Folge  1 
erwähnte  Interpreter-Erweiterung 
von  Strubs.  Dadurch  sind  vor  allem 
Programme  betroffen,  die  in  diesem 
Bereich  Sprites  oder  Maschinen¬ 
programme  benutzen. 

Kommen  wir  noch  einmal  auf  das 
Schreiben  und  Editieren  von  Quell¬ 
programmen  zurück.  Bisher  haben 
wir  nur  davon  gesprochen,  daß  die 
Programmtexte  im  Editbereich  edi¬ 
tiert  wurden.  Diese  Methode  hat  ins¬ 
besondere  bei  der  Entwicklung  um¬ 
fangreicher  Programme  einen 


Nachteil:  Da  Strubs  selbst  mit  einer 
Interpreter-Erweiterung  arbeitet, 
kann  man  nicht  gleichzeitig  andere 
Interpreter-Erweiterungen  —  zum 
Beispiel  Toolkits  oder  das  DOS  — 
benutzen.  Möchte  man  auf  Befehle 
wie  MERGE,  AUTO,  FIND  etc.  nicht 
verzichten,  dann  kann  man  die 
Quellprogramme  vollkommen  un¬ 
abhängig  von  Strubs  entwickeln  und 
erst  anschließend  das  fertige  Quell¬ 
programm  in  den  Editbereich  la¬ 
den. 

Es  zeigt  sich,  daß  die  meisten  Be¬ 
schränkungen  bei  der  Arbeit  mit 
S.trubs  ihren  einzigen  Grund  in  der 
kleinen  Interpreter-Erweiterung  ha¬ 
ben.  Wie  bereits  in  der  ersten  Folge 
erwähnt,  besteht  der  einzige  Sinn 
dieser  Erweiterung  darin,  das  Star¬ 
ten  von  Strubs  vom  Editbereich  aus 
dadurch  bequemer  zu  gestalten, 
daß  die  Befehlsfolge 
POKE  44,8:  RUN 

durch  Eingabe  von  »!«  abgekürzt 
werden  kann.  Wenn  Sie  bereit  sind, 
diese  Befehlsfolge  jedesmal  von 
Hand  einzugeben,  können  Sie  auf 
die  Erweiterung  verzichten,  indem 


Sie  im  Programm  die  Zeilen  45600 
bis  45680  einfach  weglassen.  Damit 
fallen  dann  die  oben  erwähnten  Be¬ 
schränkungen  weg,  das  heißt  die 
unter  Fall  2  erwähnten  Programme 
können  im  Editbereich  getestet  wer¬ 
den  und  Strubs  kann  zusammen  mit 
einer  Programmierhilfe  benutzt 
werden.  Aber  editieren  Sie  keine 
Quellprogramme  unter  Simons  Ba¬ 
sic.  Dazu  sind  weitere  Anpassungen 
erforderlich,  auf  die  wir  in  der  näch¬ 
sten  Folge  näher  eingehen.  Insbe¬ 
sondere  wenn  ein  Programm  aus 


fertigen  Modulen  zusammengesetzt 
werden  soll,  sind  solche  Program¬ 
mierhilfen  erforderlich. 

Dieser  Vorgang  verläuft  auf  der 
Quellprogramm-Ebene  aufgrund 
der  Unabhängigkeit  von  Zeilennum¬ 
mern  relativ  einfach.  Die  einzelnen 
Programmteile  werden  in  beliebi¬ 
ger  Reihenfolge  zusammengesetzt. 
Dazu  kann  ein  Toolkit  oder  auch  das 
kleine  MERGE-Programm  aus  dem 
64 'er,  Ausgabe  4/84,  benutzt  wer¬ 
den.  Dabei  können  ruhig  gleiche 
Zeilennummern  auftreten  und  auch 
die  Reihenfolge  der  Zeilennum- 
mem  ist  beliebig.  Anschließend 
wird  der  fertige  Programmtext  mit 
Hilfe  einer  RENUMBER-Routine  ver¬ 
nünftig  durchnumeriert.  Da  Basic 
keine  lokalen  Variablen  kennt,  ist  al¬ 
lerdings  vor  dem  Zusammensetzen 
auf  die  Variablennamen  zu  achten. 
Um  unerwünschte  Seiteneffekte  zu 
vermeiden,  sind  eventuell  einige 
Umbenennungen  vorzunehmen.  Et¬ 
was  aufwendiger  gestaltet  sich  der 
Prozeß,  wenn  verschiedene  Pro¬ 
grammteile  erst  auf  der  Objekt- 
Ebene  zusammengesetzt  werden 


40050  PR  I  NT "  T ;  "  " 

40052  PRINT  "  *  —  STRUBS  —  #" 

40053  PRINT  "  *  PRECQMPILER  *" 

40055  PRINT  "  *  BITTE  WfiEHLEN  *" 

40058  PRINT  "  MMMWMMMM*." 
40850  PR  I NT "  XKMsSESD  IT" 


45500  I*0:REfiDH 

45510  POKE704+I ,W  = 1=1+1 : RERBU : IFW<256THEN45610 
45520  BATP.32 .115 ,  e ,  S ,  20 1 , 33 .-  240 , 4 , 48 , 75  .•  23 1  .■  1 99 
45530  BflTR 1 53,13,1 33 , 44 , 1 53 , 1 38 , 75 , 23 1 , 1 33 , 333 


Bild  4.  Diese  Änderungen  sind  an  Strubs  vorzunehmen, 
um  es  auf  einen  VC  20  mit  mindestens  16  KByte  Speichererweiterung  lauffähig  zu  machen 
(zusätzlich  zu  den  Änderungen  in  Ausgabe  5,  Seite  117). 


sollen.  Hierbei  ist  darauf  zu  achten, 
daß  sich  die  Bereiche  der  Zeilen¬ 
nummern  nicht  überschneiden. 
Weisen  Sie  jedem  Programmteil  ei¬ 
nen  bestimmten  Zeilennummembe- 
reich  zu  und  verlegen  diesen  Teil 
gegebenenfalls  mit  RENUMBER  in 
diesen  Bereich.  Anschließend  wer¬ 
den  nun  in  jedem  Programmteil  alle 
externen  Routinen,  die  dieser  Teil 
aufruft,  mit  Hilfe  der  EXTERN-De- 
klaration  vereinbart  (das  sind  die 
Routinen,  die  erst  nach  der  Überset¬ 
zung  angefügt  werden).  Das  oben 
für  die  Variablennamen  gesagte  gilt 
hier  entsprechend.  Jetzt  können  die 
einzelnen  Teile  getrennt  übersetzt 
und  anschließend  in  der  richtigen 
Reihenfolge  verknüpft  werden. 

Falls  Sie  keine  Erweiterung  besit¬ 
zen,  dann  können  Sie  Strubs  um  eine 
RENUMBER-Routine  erweitern:  Fü¬ 
gen  Sie  die  Zeilen  aus  Bild  3  in  das 
Objektprogramm  von  Strubs  ein  — 
und,  falls  Sie  das  Quellprogramm 
besitzen,  dort  entsprechend  die 
Zeilen  aus  Bild  2.  Um  nun  diese  Rou¬ 
tine  anzubinden,  müssen  nur  noch 
zwei  Zeilen  in  das  Menü  eingefügt 
werden: 

40110  PRINT  "(CDOWNJ  [REV  ON)  R 

[REV  OFFjENUMBER" 

und 

40210  IF  L$  =  "R”  THEN  GOSUB 
55000:  GOTO  40050 
beziehungsweise  für  das  Quellpro¬ 
gramm: 

40210  IF  Z$  =  "R"  THEN  GOSUB 
£RENUMBER:  GOTO  £MENUE 

Diese  Routine  kann  dann  mit  »R« 
aufgerufen  werden,  um  ein  Pro¬ 
gramm,  das  sich  im  Editbereich  be¬ 
findet,  umzunumerieren.  Das  Pro¬ 
gramm  Strubs  arbeitet  nicht  mit  der 
Datasette,  sondern  es  benötigt  eine 
Floppy.  Damit  der  für  Strubs  unter¬ 
halb  des  Edit-Bereichs  reservierte 
Platz  nicht  überschritten  wird,  ist 
darauf  zu  achten,  daß  beim  Eintip¬ 
pen  des  Programms  keine  Blanks 
eingefügt  werden. 

Der  Editbereich  beginnt  bei 
40*256  +  1.  Vor  dem  1.  Start  von 
Strubs  läßt  sich  mit  ’PEEK(46)  fest¬ 
stellen,  ob  Strubs  diese  Grenze 
nicht  überschreitet  (der  Wert  muß 
kleiner  als  40  sein,  im  Originalpro¬ 
gramm  liegt  er  bei  34). 

Da  Strubs  den  Zeiger  für 
»Variablen-Anfang«  heraufsetzt,  soll¬ 
te  es  immer  von  dem  1.  Start  abge¬ 
speichert  werden  (auch  bei  Verän¬ 
derungen).  Sollte  man  dies  einmal 
vergessen,  kann  man  durch  »POKE 
46,39:CLR«  vor  den  Abspeichern 
Strubs  in  die  richtigen  Grenzen  ver¬ 
weisen.  (Mathias  Törk) 

Q3Ö?  131 
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Grafik-Grundlage 


Reise  durch  die  Wunderwelt  der  Grafik 


In  dieser  Folge  werden  wir  die  ersten  Schritte  in  das 
Reich  der  hochauflösenden  Grafik  wagen.  Doch  zu¬ 
nächst  soll  die  Grafik  etwas  farbiger  werden.  Das 
heißt,  wir  erzeugen  mehrfarbige  Zeichen  und  variieren 
die  Hintergrundfarbe. 


Bevor  wir  die  dritte  Etappe  auf 
dem  Weg  zur  hochauflösenden 
Grafik  beginnen,  soll  noch  eine 
kurze  Rückschau  auf  den  in  der  letz¬ 
ten  Folge  bewältigten  Weg  gehalten 
werden:  Wir  können  jetzt  mit  dem 
Binär-  und  dem  Hexadezimalsystem 
umgehen  und  haben  gelernt,  wie 
man  Zahlen  darin  ausdrückt.  Wir 
haben  gesehen,  wie  der  Computer 
sich  Adressen  merkt  und  konnten 
mit  diesem  Wissen  RAM-Bereiche 
schützen.  Wir  haben  wichtige  Zei¬ 
ger  in  unserem  Computer  kennen¬ 
gelernt.  Das  Setzen  oder  Löschen 


Bild  1.  Der  Buchstabe  A,  dargestellt 
im  Mehrfarbenmodus 


XXXOXXXX  (53270),  Bit  4  =  0 
OR 

00010000  Maske,  dez.  16 
=  XXX1XXXX  (53270),  Bit  4  =  1 


Bild  2.  Das  Setzen  einzelner  Datenbits  mittels 
logischer  OR-Verknüpfung 

von  beliebigen  Bits  in  einem  Byte 
beherrschen  wir  ebenso  wie  die 
Definition  und  Benutzung  eigener 
Zeichen.  Wenn  Sie  seit  der  letzten 
Folge  viel  ausprobiert  und  so  Übung 
gewonnen  haben,  dann  kennen  Sie 
Ihren  Computer  schon  ganz  gut. 

Heute  werden  wir  zunächst  etwas 
mehr  Farbe  ins  Spiel  bringen,  in¬ 
dem  wir  mehrfarbige  Zeichen  oder 
Zeichen  mit  einem  anderen  Hinter¬ 
grund  benutzen.  Dann  betreten  wir 
das  Gemach  von  Dornröschen  (der 
hochauflösenden  Grafik)  und  küs¬ 
sen  es  wach  —  im  übertragenen  Sin¬ 
ne  natürlich.  Nach  dieser  Ankündi¬ 
gung  sind  die  ersten  schon  aufge¬ 
brochen.  Also  gehen  wir  auch  los. 

Erinnern  Sie  sich  bitte  an  Bild  11 
aus  der  letzten  oder  an  Bild  8  aus  der 
ersten  Folge.  Egal,  ob  es  sich  um  Zei¬ 
chen  aus  dem  Zeichen-ROM  oder 
um  selbstdefinierte  Zeichen  han¬ 
delt,  eines  haben  sie  gemeinsam: 
Überall  dort,  wo  sich  im  Bit-Muster 
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des  Zeichens  eine  1  befindet,  also 
ein  Bit  gesetzt  ist,  taucht  bei  der  Dar¬ 
stellung  auf  dem  Bildschirm  ein 
Punkt  in  der  Zeichenfarbe  auf,  die 
im  Büdschirmfarbspeicher  angege¬ 
ben  ist.  Diese  Farbe  haben  wir  ent¬ 
weder  im  Direktmodus  durch 
Drücken  der  »CTRL«-  oder  »COM- 
MODORE«-Taste  in  Kombination  mit 
einer  Zifferntaste  festgelegt  oder 


Überall  dort,  wo  im  Bitmuster  des 
Zeichens  eine  0  ist,  taucht  bei  der 
Darstellung  auf  dem  Bildschirm 
nichts  auf,  das  heißt  dort  erschemt 
die  Farbe  des  Bildschirmhinter¬ 
grundes.  Jedes  Bit  aus  dem  Bit- 
Muster  wird  also  im  Normalbetrieb 
und  auch  bei  selbstdefinierten  Zei¬ 


chen  einzeln  interpretiert.  Es  gibt 
nun  auch  andere  Möglichkeiten  der 
Interpretation  des  Bit-Musters,  und 
eine  davon  wird  im  Mehrfarbenmo¬ 
dus  angewendet.  Hier  sind  die  Bits 
des  Zeichens  zu  Paaren  zusammen¬ 
gefaßt  (Bild  1). 

Das  ist  der  Buchstabe  »A«  mit 
paarweise  zusammengefaßten  Bits. 
Es  ergeben  sich  vier  verschiedene 


vier  Möglichkeiten  den  Zahlen  0,  1, 

2, 3  entsprechen.  Sie  wirken  wie  Zei¬ 
ger,  die  in  verschiedene  Register 
des  VIC-II-Chip  deuten  (Tabelle  1; 
siehe  auch  Registerübersicht  in  der 
ersten  Folge). 

Dort  also,  wo  ein  Bitpaar  00  steht, 
wird  es  in  der  Farbe  des  Bildschirm- 
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durch  ein  »POKE  646,  Zeichenfarbe«  Möglichkeiten  der  Bit-Kombination: 
oder  auch  durch  POKEn  eines  Färb-  00,  01,  10,  11 
Codes  in  die  entsprechende  Stelle  Erinnern  Sie  sich  an  die  Bmärzah- 
des  Bildschirmfarbspeichers.  len,  dann  erkennen  Sie,  daß  diese 
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Teil 


im  Direktmodus  eingegeben  ha¬ 
ben,  dann  verwandeln  Sie  alle  Buch¬ 
staben  auf  dem  Bildschirm  in  mehr¬ 
farbige  Zeichen.  Auf  einem 
Schwarzweiß-Gerät  sind  sie  dann 
kaum  mehr  zu  erkennen.  Hier  stellt 
man  auch  den  Unterschied  zwi¬ 
schen  einem  Farbfernseher  und  ei¬ 
nem  Farbmonitor  fest.  Der  letztere 
trennt  die  unterschiedlichen  Farben 


Grafik-Grundlagen 


deutlich  voneinander,  während  auf 
dem  Fernsehschirm  häufig  Farbmi¬ 
schungen  auftreten.  Deswegen  soll¬ 
te  die  Farbgebung  in  die  Register  34 
und  35  individuell  ausfallen:  Probie¬ 
ren,  probieren  ... 

Das  Ausschalten  des  Mehrfarb- 
Zeichen-Modus  geschieht  durch  Lö¬ 
schen  des  Bit  4  in  53270  mit 
POKE  53270,  PEEK(53270)  AND  239. 


hintergrundes  angezeigt,  wie  bisher 
im  Normalmodus  mit  einem  Bit  0  ge¬ 
schehen.  In  Adresse  53281  haben 
wir  bisher  ja  immer  schon  die  Bild¬ 
schirmfarbe  festgelegt.  Hinzu  kom¬ 
men  die  Register  34  und  35  des  VIC- 
II-Chips  entsprechend  den  Adres¬ 
sen  53282  und  53283.  Hier  können 
wir  nun  weitere  Farben  eingeben, 
die  an  den  Stellen  auf  dem  Bild¬ 
schirm  gezeigt  werden,  an  denen 
die  dazugehörige  Bit-Kombination 
(Öl  oder  10)  steht.  Erlaubt  sind  alle 
Farben  (0  bis  15). 

Nun  sind  es  noch  zwei  Vorausset¬ 
zungen,  die  uns  vom  Mehrfarben- 
Zeichen  trennen:  Dem  Computer 
muß  mitgeteilt  werden,  daß  er  das 
Bit-Muster  in  Paaren  statt  einzeln  in¬ 
terpretieren  soll.  Das  geschieht  da¬ 
durch,  daß  man  im  Register  22 
(Adresse  53270)  das  Bit  4  auf  1  setzt. 
Falls  Sie  sich  nicht  mehr  so  genau  er¬ 
innern,  wie  wir  sowas  in  der  letzten 
Folge  gemacht  haben  —  hier  ist  es 
nochmal  gezeigt  (Bild  2). 

Es  muß  also  eingegeben  werden: 
POKE  53270, PEEK(53270)  OR  16 

Dieses  Byte  53270  im  VIC-II-Chip 
ist  ein  Beispiel  dafür,  wie  sorgfältig 
man  auf  das  richtige  Setzen  oder  Lö¬ 
schen  von  Bits  achten  sollte.  Wenn 
Sie  sich  die  Registerübersicht  in  der 
1.  Folge  und  dort  besonders  dieses 
Byte  ansehen,  stellen  Sie  fest,  daß 
fast  jedes  Bit  eine  andere  Funktion 
zu  erfüllen  hat. 

Sollten  Sie  die  obige  Basic-Zeile 


v 

1  Zeile 

Byte  0 

Byte  8 

Byte  312 

0 
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1 
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Bild  5.  Zusammenhang  zwischen 
Bildschirm  und  Bit-Map 


319 


Bild  6.  Bildschirmkoordinaten  bei  hochauflösender  Grafik 


Byte  3948 


Spalte  13 

Zeile  12 

Byte  3944 

Byte  3945 

Byte  3946 

Byte  3947 

Byte  3948' 

Byte  3949 

Byte  3950 

Byte  3951 

Bild  8. ...  und  hier  die  Bit-Adresse 


Bild  7.  Hier  wird  die  Byte-Adresse  zum  Punkt  (110,100)  ermittelt ... 
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Falls  Sie  vorhin  beim  Anschalten 
des  Mehrfarb-Modus  nicht  die  nor¬ 
male  Zeichenfarbe  (Code  14),  son¬ 
dern  eine  zwischen  0  und  7  vorlie¬ 
gen  hatten,  dann  haben  Sie  keine 
Veränderung  bemerkt. 

Und  damit  sind  wir  bei  der  zwei¬ 
ten  Voraussetzung:  Es  kommt  näm¬ 
lich  auch  noch  auf  den  Inhalt  jeder 
Bildschirmfarbspeicherstelle  an 
(55296  bis  56295).  Erst  wenn  für  eine 
solche  Zelle  das  Bit  3  gesetzt  ist  ( =  1), 
findet  man  Zeichen  im  dazugehöri¬ 
gen  Bildschirmplatz  in  der  Mehr- 
farbdarstellung.  Sehen  wir  uns  dazu 
noch  einige  Farbcodes  an: 

1  =  bin.  0001 

7  =  bin.  0111 
Bit  3  ist  gelöscht 

8  =  bin.  1000 
15  =  bin.  1111 
Bit  3  ist  gesetzt 

Der  Farbcode  bewirkt  also  zwei¬ 
erlei: 

a)  Er  gibt  an,  ob  ein  Zeichen  im 
Mehrfarbmodus  dargestellt  wird, 
und 

b)  er  verleiht  den  Bit-Paaren  »11«  die 
Farbe. 

Zur  Demonstration  können  Sie  ja 
mal  folgendes  Programm  eingeben: 


in  die  Hintergrundfarbregister  se¬ 
hen,  dann  werden  Sie  dort  nicht  — 
wie  im  Programm  veranlaßt  —  die 
Ziffern  6,1,0  sehen,  sondern 
246,241,240.  Das  liegt  daran,  daß  die 
Bits  4  bis  7  dieser  Register  für  die 
Farbgebung  mcht  benutzt  werden 
und  vom  Betriebssystem  auf  1  gehal¬ 
ten  werden.  Die  Binärzahl  1111  0000 
entspricht  dem  Dezimalwert  240. 
Deswegen  muß  man  zur  Farbcode- 
zahl  diese  240  addieren,  um  den 
Speicherinhalt  zu  erhalten. 

Wieder  eine  andere  Art  der  Inter¬ 
pretation  findet  man  beim  Modus  für 
erweiterte  (oder  veränderte)  Hinter¬ 
grundfarben.  Damit  kann  man  zum 


(nicht  das  Zeichen  selber)  auf  den 
Farbcode,  der  in  53282  steht.  Ähn¬ 
lich  verläuft  es  mit  dem  reversen  A 
(Bildschirmcode  129)  und  dem  re¬ 
versen  geshifteten  A  (Bildschirmco¬ 
de  193).  In  die  Register  53281  bis 
53284  können  alle  Farbcodes  einge¬ 
geben  werden. 

Damit  der  Computer  die  Codes  in 
dieser  besonderen  Weise  best,  muß 
ihm  das  angezeigt  werden,  indem 
man  im  Byte  53265  das  Bit  6  auf  1 
setzt.  Das  sollten  Sie  schon  können: 
POKE  53265, PEEK(53265)OR  64 

Das  Abschalten  dieses  Modus  ge¬ 
schieht  durch  Löschen  des  gleichen 
Bits: 


Bit- 

Paar 

Regi¬ 
ster  # 

Adresse 

Bit-Paar  zeigt  auf: 

Bedeutung 

00 

33 

53281 

Hintergrundfarbe  Nr.  0 

01 

34 

53282 

Hintergrundfarbe  Nr.  1 

10 

35 

53283 

Hintergrundfarbe  Nr.  2 

11  bringt  die  Farbe,  die  in  Bit  0  bis  2  des  Bildschirmfarbspeichers  vorhanden  ist 

Tabelle  1.  Bedeutung  von  Bit-Kombinationen  im  Mehrfarbenmodus 


10  PRINT  CHR$  (147) 

20  POKE  53281, 6:POKE  53282, l:POKE  53283, 0:REM  LÄDEN  DER  3  FARBREGISTER 

30  POKE  53270, PEEK(53270)OR  16:REM  ANSCHALTEN  DES  MEHi- r.'.RBEN- 

MODUS 

40  POKE  646,0:REM  ZEICHENFARBE  AUF  0(BLK) 

50  PRINT  CHR$(17)’’JETZT  IST  DER  MEHRFARBENMODUS”:PRINT 

"EINGESCHALTET” 

60  PRINT  CHR$07)"IN  DIE  BILDSCHIRMFARBZEILEN  IST  ABER  DIE”;:PRINT”0 
EINGEGEBEN” 

70  PRINT  CHR$(17)”DESWEGEN  IST  DIE  ZEICHENDARSTEL- 
LUNG”;:PRINT"NORMAir 

80  POKE  646,14:REM  ZEICHENFARBE  AUF  14(HBLU) 

90  PRINT  CHR$(17)”DER  FARBCODE  IST  JETZT  14” 

100  PRINT  CHR$(17)”DER  MEHRFARBEN-MODUS  IST  SICHTBAR” 

110  END 

120  POKE  53270, PEEK(53270)AND  239:REM  AUSSCHÄLTEN  DES  MEHRFARBEN¬ 

MODUS 

130  END _ 


Wenn  dieses  Programm  mit  Zeile 
110  beendet  ist,  befinden  Sie  sich 
weiterhin  im  Mehrfarbenmodus  und 
können  nach  Herzenslust  durch  PO¬ 
KE  646,  »Zeichenfarbe«,  oder  mit 
»CTRL«-  beziehungsweise  »COM- 
MODORE«-Taste  und  einer  Ziffern¬ 
taste  die  Zeichenfarbe  ändern  und 
den  Effekt  beobachten.  Übrigens  ist 
der  Cursor  unterhalb  der  READY- 
Meldung  noch  da  —  was  Sie  durch 
eine  Änderung  der  Zeichenfarbe 
sofort  feststellen  können.  Sollten  Sie 
genug  von  diesem  Modus  haben, 
dann  geben  Sie  ein  CONT  »RE¬ 
TURN«  und  das  Programm  schaltet 
wieder  den  Normalmodus  ein. 

Sollten  Sie  zufällig  mal  durch 
PRINT  PEEK(53281),PEEK(53282), 
PEEK(53283) 


Beispiel  ein  grünes  Zeichen  mit  ro¬ 
tem  Hintergrund  auf  einem  gelben 
Bildschirm  darstellen.  Hier  wird  der 
Bildschirmcode  des  Zeichens  auf  ei¬ 
ne  vom  Normalmodus  unterschiedli¬ 
che  Weise  gelesen.  Bit  7  und  Bit  6 
der  Bildschirmcodezahl  geben 
nämlich  jetzt  einen  Zeiger  auf  Farb- 
register  ab.  Das  geschieht  in  der 
Weise,  wie  in  der  Tabelle  2  gezeigt 
wird. 

Es  zeigt  sich,  daß  nur  64  Zeichen 
dargestellt  werden  können  —  also 
keine  Grafikzeichen.  Verwendet 
man  das  normale  A  (Bildschirmco¬ 
de  1),  dann  zeigen  die  Bits  7  und  6  auf 
das  normale  Hintergrundregister 
53281.  Verwendet  man  das  geshifte- 
te  A  (Bildschirmcode  65),  verändert 
sich  die  Hintergrundfarbe  des  A 


POKE  53265, PEEK(53265)AND  191 

Die  Zeichenfarbe  bleibt  von  der 
ganzen  Umstellung  unberührt.  Man 
kann  sie  auf  die  nun  schon  bekannte 
Weise  jederzeit  ändern. 

Warum  kann  man  eigentlich  in 
diesem  Modus  nur  64  Zeichen  dar¬ 
stellen?  Die  Antwort  darauf  liegt 
darin,  daß  nur  die  Bits  0  und  5  für 
den  Zeichencode  zur  Verfügung  ste¬ 
hen,  also 

von  00  0000  —  »(§)« 
bis  11  1111  =*=»?« 

mit  Hintergrundfarbe  aus  53281 

Jede  weitere  Erhöhung  beeinflußt 
die  Bits  7  und  6,  wird  aber  in  den  un¬ 
teren  6  Bits  nicht  mehr  wahrgenom¬ 
men.  Dort  beginnt  einfach  die  Zäh¬ 
lung  wieder  ab  0: 

(1)00  0000  =  64, 

das  bedeutet  Zeichen  0  (@)  mit  Hin¬ 
tergrundfarbe  aus  53282. 

Ganz  nett  wäre  es  ja  eigentlich, 
wenn  man  sowohl  den  Modus  mit  er¬ 
weiterten  Hintergrundfarben  als 
auch  dem  Mehrfarbzeichenmodus 
miteinander  kombinieren  könnte.  Je¬ 
der  Versuch,  das  zu  tun,  endet  mit  ei¬ 
nem  schwarzen  Bildschirm  ohne  jeg¬ 
liches  Zeichen.  An  diese  Möglich¬ 
keit  haben  die  Schöpfer  des  VIC-II- 
Chip  offenbar  nicht  gedacht. 

Betrachten  Sie  jetzt  doch  einmal 
das  nachfolgende  Demonstrations¬ 
programm.  Vor  der  Eingabe  schal¬ 
ten  Sie  bitte  durch  gleichzeitiges 
Drücken  der  »COMMODORE«-  und 
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POKE  53265, PEEK(53265)OR  32 
eingeben.  Danach  sieht  der  Bild¬ 
schirm  allerdings  recht  merkwür¬ 
dig  aus.  Das  ist  auch  kein  Wunder, 
denn  wie  gesagt  wird  jetzt  der  Inhalt 
der  Bit-Map  dargestellt,  und  wir  ha¬ 
ben  dem  Computer  noch  nicht  mit¬ 
geteilt,  wo  die  Bit-Map  zu  finden  ist. 
Das  geschieht  durch  Setzen  des  Bit 
3  des  VIC-II-Registers  mit  der 
Adresse  53272  auf  den  Wert  0  oder 
1.  Dabei  gelten  die  Zusammenhän¬ 
ge  nach  Tabelle  3. 


5  poke  chr$(147) 

10  poke  53281,6:poke  53282, 0:poke  53283, 7:poke  53284,10:rem  laden  der  farbregi- 
ster 

20  poke  53265, peek(53265)  or  64:rem  anschalten  des  modus 
30  print  chr$07)’’der  modus  ist  eingeschaltet  aber  der”:print”zeichencode  ist 
kleiner  als  64” 

40  print  chr$(17)”JETZT  WIRD  MIT  GESHIFTETEN  ZEICHEN«:print”GEDRUCKT” 

50  print  chr$(17)chr$(18)”der  druck  mit  reversed  Zeichen  hat  die” 

60  print  chr$(18)”hintergrundfarbe  von  register  53283” 

70  print  chr$(144)chr$(17)chr$(18)”REVERSED  UND  GESHIFTETE  ZEICHEN" 

80  print  chr$(154):end 

90  poke  53265, peek(53265)and  191 

100  end 


»SHIFT«-Tasten  den  Kleinschriftmo¬ 
dus  ein, 

Beispiel  »A« 

Ebenso  wie  beim  vorigen  Pro- 

Zeichen 

Code 

Code,  binär 

Bit  Bit 

Hintergrundfarbregister 

gramm  können  Sie  nach  dem  ersten 

Codebe- 

END  in  Zeile  80  noch  mit  den  ver- 

reich 

dezi- 

schiedenen  Kombinationen  von  Zei¬ 
chenfarbe  und  Zeichencode  her- 

mal 

76543210 

67 

Nr. 

Adresse 

Normale  Zei¬ 
chen 

$>H1FT}-Zei- 

0-  63 

1 

00000001 

00 

33  +  0 

53281 

umexperimentieren.  Wenn  Sie  ge- 

nug  davon  haben,  erreicht  ein 

CONT  »RETURN«  die  Rückkehr  in 

64-127 

65 

01000001 

0  1 

33  +  1 

53282 

den  Normalzustand. 

Reversed  Zei- 

Auch  dieser  Modus  ist  mit  selbst- 

chen 

128-191 

129 

10000001 

1  0 

33  +  2 

53283 

definierten  Zeichen  ebenso  ver- 

Reversed 

wendbar  wie  mit  den  ROM-Zeichen. 

(SHIFT)-Zeichen 

192-255 

193 

11000001 

1  1 

33  +  3 

53284 

Tabelle  2.  Bildschirmcode  und  Mehrfarbenmodus 


Bit  3 

von  53272 

Ort  der  Bit-Map 
(Adressenbereich) 

0  6* 

1 

0-  7999 

8192  -  16191 

Tabelle  3.  Mögliche 
Bereiche  des  Bit-Map 


Wir  betreten  Dorn¬ 
röschens  Schloß: 

Das  Bit-Mapping-Prinzip 

Es  ist  soweit!  Wir  stehen  an  der 
Schwelle  zur  hochauflösenden  Gra¬ 
fik.  Wenn  wir  bisher  mit  Zeichen  al¬ 
ler  Art  auf  dem  Bildschirm  gearbei¬ 
tet  haben,  waren  diese  immer  durch 
acht  Bytes  definiert:  entweder 
durch  das  Zeichen-ROM  oder 
durch  einen  von  uns  erstellten  alter¬ 
nativen  Zeichensatz  im  RAM.  Jeder 
Aufruf  eines  Zeichencodes  füllte  ei¬ 
nen  Bildschirmspeicherplatz,  zum 
Beispiel  1024  mit  diesem  Zeichen, 
also  mit  8  Byte.  Zugriff  auf  einzelne 
Byte  hatten  wir  nur  beim  Selbstdefi¬ 
nieren,  aber  dieser  Zugriff  legte 
dann  eben  in  der  Anwendung  auch 
wieder  8  Byte  auf  einmal  fest.  Wenn 
es  nun  eine  Möglichkeit  gäbe,  stän¬ 
dig  Zugriff  auf  einzelne  Bytes  zu  ha¬ 
ben  und  die  Punktmuster  jedes  By¬ 
tes  verändern  zu  können,  dann  hät¬ 
ten  wir  ganz  andere  Aussichten  (Bild 
3),. 

Überlegen  wir  mal:  Statt  1000  Byte 
(40  x  25)  hätten  wir  dann  8000  Byte 
(40  x  25  x  8)  zu  je  8  Bit,  also  insgesamt 
64000  Bildpunkte,  die  ansprechbar 
wären!  Genau  das  geschieht  beim 
sogenannten  Bit-Mapping.  Der 
Computer  legt  sich  gewissermaßen 
eine  Landkarte  dieser  8000  Byte  an 
und  büdet  ihren  Inhalt  auf  dem  Bild¬ 
schirm  ab.  Auf  dem  Bildschirm  kön¬ 


nen  wir  mit  dieser  Karte  nun  (siehe 
Bild  3)  in  der  Senkrechten  (y)  25  x  8 
=  200  Positionen  und  in  der  Waage¬ 
rechten  (x)  40  x  8  =  320  Positionen 
ansprechen.  Immer  dann,  wenn  ein 
Bit  in  der  Bit-Map  gesetzt  ( =  1)  ist,  er¬ 
zeugt  das  automatisch  das  Aufleuch¬ 
ten  eines  der  64000  Bildpunkte  auf 
dem  Bildschirm.  Ist  ein  Bit  gelöscht 
(=  0),  dann  ist  der  Bildpunkt  leer 
(siehe  Bild  4). 


Dornröschen 

erwacht 


Das  Anschalten  dieses  Bit-Map- 
Modus  ist  der  Kuß,  den  wir  Dornrö¬ 
schen  geben.  Seien  Sie  nicht  vorzei¬ 
tig  enttäuscht.  Dornröschen  hat  1000 
Jahre  geschlafen  und  wir  müssen 
mit  viel  Geduld  ihre  Fähigkeiten 
nach  und  nach  entwickeln  helfen. 
Wenn  Dornröschen  jetzt  erwacht,  ist 
es  hilflos  wie  ein  neugeborenes 
Kind.  Nach  dieser  Warnung  also  ge¬ 
hen  wir  so  vor:  Im  VIC-II-Chip  Regi¬ 
ster  53265  setzen  wir  Bit  5  auf  1,  in¬ 
dem  wir  den  Befehl 


Der  normale  Inhalt  von  Byte  53272 
ist  21  (das  kennen  wir  noch  aus  der 
letzten  Folge).  Binär  ausgedrückt  ist 
das:  0001  0101 

Bit  3  ist  also  0.  Alles,  was  in  diesem 
Bit-Map-Speicherbereich  von  0 
(Zeropage!)  bis  7999  (mitten  im 
Basic-RAM)  existiert,  wurde  beim 
Anschalten  des  Bit-Map-Modus  ab¬ 
gebildet.  Und  weil  die  Zeropage 
laufend  vom  Betriebssystem  für  sei¬ 
ne  ständigen  Arbeiten  verwendet 
wird,  sind  im  oberen  Bereich  unse¬ 
res  seltsamen  Bildes  auch  flimmern¬ 
de  Stellen  zu  sehen  wo  also  lau 
fend  Bits  gesetzt  und  gelöscht  wer¬ 
den.  Sehen  Sie  sich  Ihren  Bild¬ 
schirm  mit  diesem  merkwürdigen 
Abbild  noch  etwas  genauer  an.  Et¬ 
wa  von  der  Mitte  an  sehen  Sie  Zei¬ 
chen  abgebildet.  Dort  liegt  die  Spei¬ 
cherzelle  4096,  von  der  an  das  Gei¬ 
sterbild  der  Zeichen  (siehe  Folge  1) 
liegt.  Wir  sehen  also  Gespenster! 

Nun  sollten  Sie  mit  »RUN/STOP« 
und  »RESTORE«  wieder  den  Nor¬ 
malzustand  herstellen.  Dann  schal¬ 
ten  Sie  mit  folgenden  Programmen 
den  Hochauflösungsmodus  und  die 
spezielle  Bit-Map  ab  8192  an: 

10  PRINT  CHR$(147):POKE53265, 


ütfüi*  135 
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PEEK(53265)OR  32 
20  POKE  53272, PEEK(53272)OR  8 
Der  letzte  Befehl  besorgt  das  Set¬ 
zen  des  Bit  3  auf  1.  Außerdem  fügen 
wir  vorsorglich  noch  die  Rückkehr 
in  den  Normalmodus  an: 

110  POKE  53265, PEEK(53265)AND 
223 

Löschen  des  Bit  5  in  53265, 

120  POKE  53272, PEEK(53272)AND 
247 

Löschen  des  Bit  3  in  53272. 

Dazu  bauen  wir  noch  eine  GET- 
Abfrage  ein: 

100  GET  A$:IF  A$  =  "  ”  THEN  100 
Starten  Sie  jetzt  mit  RUN.  Die  Bit- 
Map  ab  8192  wird  auf  dem  Bild¬ 
schirm  gezeigt.  Das  ist  leerer  Spei¬ 
cher,  so  wie  wir  ihn  in  Form  von  Zah¬ 
len  (Blöcken  von  0  und  255)  schon  in 
der  1.  Folge  kennengelemt  haben. 


Die  ersten  Schritte 


Sie  erinnern  sich  vielleicht  auch 
daran,  daß  manchmal,  wenn  auch 
selten,  andere  Zahlen  eingestreut 
waren.  Deswegen  sieht  man  hier 
auch  nicht  immer  ganz  schwarze 
oder  ganz  helle  Blöcke,  sondern 
häufig  welche  mit  Einsprengseln. 
Überall  dort,  wo  ein  Byte  der  Bitmap 
den  Wert  255  hat,  steht  ja  binär  1111 
1111,  das  heißt  8  Bildpunkte  auf  dem 
Bildschirm  sind  angeschaltet.  Wir 
sehen  schon,  wir  müssen  den  Spei¬ 
cher  noch  löschen,  also  überall  0 
hinschreiben: 

30  B  =  8192:FOR  1  =  0  TO  7999:POKE 
I  +  B,0:NEXT  I 

Wenn  Sie  diese  Programmzeile 
noch  einfügen  und  dann  mit  RUN 
starten,  können  Sie  dem  Computer 
bei  der  Arbeit  Zusehen. 


Jetzt  kommt  Farbe 
ins  Bild 


Vermutlich  sind  Sie  jetzt  ent¬ 
täuscht.  Ein  leerer  schwarzer  Bild¬ 
schirm  ist  nicht  gerade  eindrucks¬ 
voll.  Deswegen  wollen  wir  nun  noch 
zwei  Dinge  lernen:  Wie  kommt  Far¬ 
be  ins  Bild  und  wie  bekomme  ich 
Punkte  auf  den  Bildschirm? 

Wenn  Sie  vor  der  Zeile  100  im  Pro¬ 
gramm  einen  Stop-Befehl  einfügen, 
tauchen  nach  der  Abarbeitung  der 
ersten  Zeilen  plötzlich  farbige  Qua¬ 
drate  auf  dem  Bildschirm  auf.  Die 
Antwort  auf  die  Frage  nach  der  Her¬ 
kunft  dieser  Quadrate  birgt  für  uns 
zugleich  die  Möglichkeit  der  Farb¬ 
gebung.  Geben  Sie  nun  em;  CONT 
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»RETURN«.  Auch  das  erscheint  als 
Folge  farbiger  Quadrate.  Jetzt  wartet 
der  Computer  auf  einen  Tasten¬ 
druck,  der  auf  dem  Bildschirm  fol¬ 
gendes  erscheinen  läßt: 

BREAK  IN  40 
READY 
CONT 
READY 
□ 


Der  Mehrfarbenmodus 
wird  entschleiert 


Genau  an  derselben  Stelle  waren 
im  HIRES-Modus  die  farbigen  Qua¬ 
drate  zu  sehen.  Die  Farbe  wird  also 
anscheinend  vom  Inhalt  der  Bild¬ 
schirmspeicherzellen  gesteuert. 
Das  B  von  BREAK  hat  einen  Bild¬ 
schirmcode  von  2.  Zwei  ist  auch  der 
Farbcode  für  Rot.  Falls  Sie  einen 
Farbmonitor  Ihr  eigen  nennen,  se¬ 
hen  Sie  im  Hochauflösungsmodus 
an  der  Stelle  des  B  ein  rotes  Qua¬ 
drat.  Des  Rätsels  Lösung  sieht  so 
aus:  Die  Farbe  des  Hochauflösungs¬ 
bildes  wird  von  8x8-Bit-Feldern  ge¬ 
steuert,  die  den  Bildschirmspei¬ 
cherzellen  entsprec'  -  .  Die  Steue¬ 
rung  ist  also  vom  Inhalt  des  Bild¬ 
schirmspeichers  abhängig,  nicht 
vom  Inhalt  des  Farbspeichers. 
Schreiben  wir  zum  Beispiel  in  Zelle 
1024  eine  1,  dann  erhalten  wir  im 
Hochauflösungsmodus  ein  weißes 
Feld  in  der  linken  oberen  Bild¬ 
schirmecke.  Nun  wollen  wir  in  die¬ 
sen  Bereich  auch  noch  eine  kleine 
Linie  zeichnen:  Löschen  Sie  bitte  zu¬ 
nächst  mal  den  STOP-Befehl  und  fü¬ 
gen  Sie  ein: 

40  POKE  1024,1:POKE  8193,255 
Nach  dem  Starten  erhalten  wir  — 
wie  erwartet  —  das  weiße  Feld  links 
oben  und  darin  einen  schwarzen 
Strich.  Um  offen  zu  sein  —  ganz  so  er¬ 
wartet  war’s  ja  nicht.  Denn  woher 
hätten  wir  wissen  können,  daß  der 
Strich  schwarz  ist?  Sehen  wir  uns 
den  Inhalt  der  Speicherzelle  1024 
genauer  an.  Im  binären  System  ge¬ 
schrieben  steht  dort  jetzt: 


0000 

0001 

MSN 

LSN 

=  0 

=  1 

N  =  Nibble  (4  Bit) 

Das  legt  die  Vermutung  nahe,  daß 
die  Hintergrundfarbe  durch  das 
LSN  (hier  1  =  weiß)  und  die  Punkt¬ 
farbe  durch  das  MSN  (hier  0  = 


schwarz)  gesteuert  wird.  Probieren 
wir  es  einfach  mal  aus.  Wir  tauschen 
das  ganze  mal  um  und  schreiben  in 
1024  den  folgenden  Wert: 


0001 

0000 

MSN 

LSN 

=  1 

=  0 

(dezimal  16) 

Also  ändern  wir  in  der  Zeile  40 
den  ersten  POKE-Befehl  um  in  PO¬ 
KE  1024,16.  Es  klappt!  Nach  dem 
Starten  (wie  immer  in  diesem  Pro¬ 
gramm  nach  einigem  geduldigen 
Warten)  erscheint  ein  weißer  Strich 
auf  schwarzem  Grund.  Nun  können 
wir  dieses  triste  Schwarz  gezielt  ent¬ 
fernen  und  von  vornherein  bestim¬ 
men,  welche  Farbe  unsere  Punkte 
bekommen  sollen  und  welche  der 
Hintergrund,  indem  wir  in  die  Bild¬ 
schirmzellen  den  Dezimalwert  un¬ 
serer  Binärzahl  eingeben.  Damit  Sie 
nicht  jedesmal  umrechnen  müssen, 
hier  eine  nützliche  Formel: 
Farbkennziffer  (F)  =  Zeichenfarbe 
(ZF)  x  16  +  Hintergrundfarbe  (HF) 
Zum  Ausprobieren  ändern  wir  un¬ 
ser  Programm  um: 

5  INPUT”ZF,HF  =  ”;ZF,HF 
In  Zeile  40  schreiben  wir  jetzt  neu: 
40  F  =  ZF*16+HF:FOR  1  =  1024  TO 
2023:POKE  I,F:NEXT  I 
50  POKE  8193,255 
Wenn  Sie  beispielsweise  nach 
dem  Starten  für  die  Zeichenfarbe  14 
und  für  die  Hintergrundfarbe  6  wäh¬ 
len,  können  Sie  mit  etwas  Geduld 
wieder  dem  Computer  bei  der  Ar¬ 
beit  zusehen  und  dann  einen  hell¬ 
blauen  Strich  auf  blauem  Grund  fin¬ 
den. 

Dornröschen  lernt  zeich¬ 
nen:  Punkte  setzen  im 
Hochauflösungs-Modus 

Wir  sind  es  jetzt  leid,  immer  einen 
fast  leeren  Bildschirm  anzusehen. 
Ob  er  nun  schwarz  oder  blau  ist:  Wir 
wollen  nun  auch  mal  etwas  darauf 
sehen!  Die  Schwierigkeit  liegt  gar 
nicht  darin,  daß  wir  nicht  wüßten, 
wie  wir  Punkte  auf  den  Bildschirm 
kriegen.  Wir  müssen  ja  nur  ein  Byte 
im  Bereich  von  8192  bis  16191  mit  ein 
paar  gesetzten  Bits  versehen,  zum 
Beispiel  durch  POKE  12000,1,  und 
schon  sehen  wir  einen  Punkt.  Das 
Problem  liegt  vielmehr  darin,  daß 
wir  einen  Weg  finden,  gezielt  Punk¬ 
te  an  bestimmte  Orte  des  Bild- 
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schirms  zu  setzen.  Dazu  müssen  wir 
den  Aufbau  der  Bit-Map  kennen  und 
und  ihren  Zusammenhang  mit  dem 
Bildschirm.  Das  Prinzip  ist  in  Bild  5 
gezeigt. 

Die  Speicherzellen  der  Bit-Map 
sind  also  angeordnet  wie  ein  vollge¬ 
schriebener  Bildschirm.  Dort  hatte 
ja  jeder  Buchstabe  seine  8  Byte  im 
Punktemuster.  Aus  der  Anordnung 
ergibt  sich  außerdem,  daß  wir  in 
der  Y-Richtung  200  mögliche  Positio¬ 
nen  (0  bis  199)  und  in  der  X-Richtung 
320  (0  bis  319)  finden.  Wir  haben  so¬ 
mit  Bildschirmkoordinaten  (Bild  6) 
und  können  Punkte  definieren,  zum 
Beispiel  im  Bild  6  den  Punkt  P  mit 
den  Koordinaten  X= 110  und  Y=  100. 

Wir  wissen  nur  noch  nicht,  in  wel¬ 
chem  Byte  wir  welches  Bit  setzen 
müssen,  um  diesen  Punkt  zu  sehen. 
Betrachten  wir  dazu  Bild  5  genauer. 
Die  25  Bildschirmzeilen  und  die  40 
Spalten  sind  noch  erhalten.  Jeder 
solche  Bildschirmplatz  besteht  aus 
acht  Byte  mit  je  acht  Bit.  Stellen  wir 
zunächst  einmal  fest,  um  welche  Zei¬ 
le  es  sich  handelt: 

Z  =  INT(Y/8) 

Beispiel:  Z  =  INT(100/8)  =  12 
(Zeile  12) 

Dann  ermitteln  wir  die  Spalte,  in 
der  unser  Punkt  liegt: 

S=INT(X/8) 

Beispiel:  S = INT(110/8) = 13 
(Spalte  13) 

In  unserem  Beispiel  muß  der 
Punkt  in  Zeile  12  an  Spaltenplatz  13 
stehen.  Weil  in  jeder  Zeile  320  Byte 
(8x40)  und  an  jedem  Platz  8  Byte  vor¬ 
handen  sind,  fängt  unser  Bild¬ 
schirmfeld  bei  Byte  Nr. 

Z*320  +  S*8  =  12*320  + 13*8 = 3944  an 
(siehe  Bild  7). 

Nun  müssen  wir  feststellen,  um 
welches  Byte  in  diesem  Feld  es  sich 
handelt.  Wir  haben  vorhin  beim 
Feststellen  der  Zeile  einfach  gleich 
INT(Y/8)  berechnet.  Wenn  wir  nun 
nur  Y/8  berechnen,  kommen  wir  in 
unserem  Beispiel  auf 

Y/8  =  100/8  =  12.5.  Ziehen  wir  davon 
INT(Y/8)  ab:  Y/8-INT(Y/8  =  12.5-12  = 
0.5  und  multiplizieren  das  Ergebnis 
mit  8: 

80*(Y/  8-INT(  Y/  8))  =  8*0.5  =  4 

Genau  das  ist  unser  gesuchtes  By¬ 
te:  Nr.  4  von  oben.  Das  sieht  kompli¬ 
zierter  aus,  als  es  ist.  Aus  alledem  er¬ 
gibt  sich  jetzt,  in  welchem  Byte  der 
Bit-Map  ein  Bit  zu  setzen  ist: 

BYTE  =  Z*320  +  S*8  +  8*(Y/8-INT(Y/ 
8)) 

In  unserem  Beispiel  ist  es  dann  al¬ 
so  das  Byte  3948  der  Bit-Map.  Nun 
müssen  wir  noch  herauskriegen, 
welches  Bit  in  diesem  Byte  zu  setzen 
ist  (siehe  Bild  8). 


Auch  hier  haben  wir  vorhin  bei 
der  Berechnung  der  Spalte  einfach 
gerechnet  INT(X/8).  Jetzt  rechnen 
wir: 

X-8*INT(X/8)  =  110-8*INT(110/8) 

Das  ergibt  6.  Wenn  wir  das  von  7 
abziehen  (Nummer  des  höchstwerti¬ 
gen  Bit),  erhalten  wir: 

BIT  =  7-(X-8*INT(X/8)) 


Die  Zauberformeln 


In  unserem  Beispiel  ist  BIT  =  1.  Es 
muß  also  Bit  1  gesetzt  werden.  Damit 
haben  wir  jetzt  folgende  Formeln  zur 
Verfügung: 

BYTE  =  INT(Y/8)*320  +  INT(X/8)*8 

+  8*(Y/8-INT(Y/8)) 

und 

BIT = 7-(X-8*INT(X/8)) 

Den  ersten  Ausdruck  für  Byte 
kann  man  noch  etwas  vereinfachen: 


BYTE  =  8*(39*INT(Y/8) + INT(X/8) + 
Y/8) 

Die  genaue  Speicherzelle  ergibt 
sich  durch  Addieren  der  Bit-Map- 
Startadresse  (8192)  zu  BYTE.  Um  also 
einen  Punkt  zu  setzen,  gibt  man  das 
Kommando: 

POKE 

8192 +  BYTE,PEEK(8192  + BYTE)  OR 
(2  t  BIT) 

Wir  ergänzen  jetzt  unser  Pro¬ 
gramm.  Die  Zeile  50  wird  neu: 
50BY=  8*(39*INT(Y/8)  +  INT(X/8)  + 
Y/8):BI  =  7-(X-8*INT(X/8)) 

Dann  folgt: 

60  POKE  B  +  BY,PEEK(B  +  BY)  OR 
(2  t  BI) 

Außerdem  müssen  wir  natürlich 
Punktkoordinaten  eingeben: 

6  INPUT"X,Y=”;X,Y 
Dabei  ist  darauf  zu  achten,  daß  X 
zwischen  0  und  319,  Y  zwischen  0 
und  199  liegt.  Starten  Sie  mit  RUN, 
geben  Sie  die  Koordinaten  ein  und 
nach  einiger  Weile  wird  Ihr  Punkt 
auf  dem  Bildschirm  zu  sehen  sein. 

Auf  eines  sollten  Sie  noch  achten, 

wenn  Sie  die  Bit-Map  bei  8192  begin¬ 


nen  lassen  (in  der  nächsten  Folge 
werden  wir  andere  Möglichkeiten 
kennenlernen):  Schützen  Sie  die  Bit- 
Map  vor  dem  Überschreiben  durch 
Basic!  Der  verbliebene  Speicher¬ 
platz  für  Basic-Text,  Variable,  Arrays, 
Strings  ist  so  knapp,  daß  Sie  ganz 
schnell  die  Bit-Map  überschreiben. 
Deswegen  sollten  Sie  (siehe  Folge  2) 
eingeben: 

POKE  51,255:POKE  52,31:POKE 

55,255:POKE  56,31 


Es  ist  geschafft: 

Die  erste  Grafik 

Alles,  was  wir  bis  jetzt  über  die 
Hochauflösungsgrafik  gelernt  ha¬ 
ben,  soll  hier  nochmal  als  kleines 
Demonstrationsprogramm  zusam¬ 
mengefaßt  werden.  Also  NEW  ein¬ 
geben  und  dann: 


Dieses  Programm  setzt  320  Punkte 
nach  der  Form  einer  Smus-Funktion. 
Zur  Erläuterung  sei  noch  bemerkt, 
daß  in  Zeile  100  eine  etwas  elegante¬ 
re  Lösung  der  Berechnung  von  BY¬ 
TE  und  BIT  angeführt  ist.  Sie  können 
aber  genauso  gut  die  bisher  ver¬ 
wendete  benutzen.  In  Zeile  150  wird 
der  Bildschirm  nochmal  gelöscht, 
denn  bei  der  Eingabe  der  Farben 
haben  wir  ja  die  Bildschirmzellen 
mit  einem  Zeichencode  belegt,  der 
im  Normalmodus  immer  unter  dem 
Cursor  sichtbar  wäre. 

Dornröschen  ist  also  erwacht  und 
hat  die  ersten  zaghaften  Schritte  ge¬ 
tan.  Alles  geht  noch  etwas  langsam 
vor  sich.  Besonders  das  Löschen 
der  Bit-Map  (Programmzeile  70)  er¬ 
fordert  geduldiges  Abwarten  —  je¬ 
denfalls  solange  wir  in  Basic  arbei¬ 
ten.  Für  heute  haben  wir  genug  ge¬ 
tan.  Die  nächste  Folge  wird  eben¬ 
falls  der  hochauflösenden  Grafik 
gewidmet  sein.  Wir  hauchen  ihr 
weiterhin  Leben  ein. 

(Heimo  Ponnath) 
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10  POKE  52,255:POKE  52,31:POKE  55,255:POKE  56,31 

20  ZF = 0:HF = 6:F = 16*ZF + HF 

30  DEFFN  A(X)  =  50*SIN(X/30) + 100 

40  PRINT  CHR$(147) 

50  POKE  53265, PEEK(53265)OR  32 

60  POKE  53272, PEEK(53272)OR  8 

70  B  =  8192:FOR  1=0  TO  7999:POKE  B+I,0:NEXT  I 
80  FOR  I  =  1024  TO  2023:POKE  I,F:NEXT  I 
90  FOR  X=0  TO  319:Y=  FNA(X) 

100  BY=  (X  AND  504)  :0*(Y  AND  248)  +  (Y  AND  7):BI  =  7-(X  AND  7) 

110  POKE  B  +  BY,PEEK(B  +  BY)  OR  (2 1  BI):NEXT  X 

120  GET  A$:IF  A$=””THEN  120 

130  POKE  53272, PEEK(53272)  AND  (255-8) 

140  POKE  53265, PEEK(53265)  AND  (255-32) 

150  PRINT  CHR$(147) 
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So  machen’s  andere 


VC  20  +  8  KByte 


Ob  für  das 
Familienalbum,  zur  Bebilde¬ 
rung  von  Zeitschriften 
oder  für  andere  Zwecke  — 

Fotografieren  macht 
Spaß.  Das  Auge  kann  sich  aber  nur  dann  an  den  fest- 
gehaltenen  Motiven  erfreuen,  wenn  die  Bilder 
wirklich  gelungen  sind.  Um  das  zu  erreichen,  muß  vor 
dem  Drücken  des  Auslösers  richtige  »Kopfarbeit« 


Bild  2.  Brennweite  50  mm,  Blende  16 


Ganz  wichtig  ist,  daß  die  einzel¬ 
nen  Größen,  wie  Belichtungs¬ 
zeit,  Tiefenschärfe  usw.  aufein¬ 
ander  abgestimmt  sind.  Die  benötig¬ 
ten  Werte  lassen  sich  aus  Tabellen 
ablesen  oder  müssen  jedes  Mal 
nach  festgelegten  Formeln  berech¬ 
net  werden. 

Wolf  Robrahn,  von  Beruf  Fotograf, 
hat  sich  eine  wesentlich  bequemere 
Möglichkeit  geschaffen:  Umständli¬ 
ches  Nachschlagen  oder  Ausrech¬ 
nen  der  Werte  erspart  ihm  sein  »Fo¬ 
tolehrling«,  der  VC  20. 

Vor  etwas  mehr  als  zwei  Jahren 
fing  alles  recht  »harmlos«  an,  als  er 
sich  entschloß;  »Ich  brauche  emen 
Mikrocomputer,  um  Grundlagen 
der  überall  gefragten  EDV-Kenntms- 
se  zu  erlernen.«  Er  kaufte  einen  ZX 
81.  Was  er  zu  dem  Zeitpunkt  noch 
nicht  ahnte,  war,  daß  Mikrocompu¬ 
ter  nur  selten  »keimfrei«  sind.  Mittler¬ 
weile  hat  sich  nämlich  herausge¬ 
stellt,  daß  er  sich  mit  dem  Computer 
den  Bazillus  ins  Haus  geholt  hatte, 
der  auch  bei  ihm  das  weitverbreite¬ 
te  und  bekannte  »Computerfieber« 
auslöste.  Es  machte  sich  recht 
schnell  bemerkbar,  seine  Frau  und 
seine  zwei  Kinder  trafen  ihn  immer 
häufiger  in  trauter  Zweisamkeit  mit 
dem  Computer  an.  Doch  die  recht 
enthusiastisch  angebahnte  Bezie¬ 
hung  zum  ZX  81  entpuppte  sich  sehr 
schnell  als  Strohfeuer:  Nicht  etwa, 
daß  Wolf  Robrahn  von  seinem  »Fie¬ 
ber«  geheilt  war  —  im  Gegenteil  — 
die  Symptome  hatten  sich  verstärkt. 
Sein  Kenntnisstand  und  seine  Fähig¬ 
keiten  waren  inzwischen  soweit  ge¬ 
wachsen,  daß  ihm  sein  Abend-  und 
Wochenend-Freund  nicht  mehr  ge¬ 
nügte.  Er  wollte  mehr.  Zwei  Alternati¬ 
ven  standen  zur  Wahl:  Die  Standard¬ 
ausführung  auszubauen  oder  ein 
größeres  Modell  »mit  richtiger  Ta¬ 


statur«  zu  kaufen.  Der  computerbe¬ 
geisterte  Fotograf  entschied  sich  für 
letzteres  und  besitzt  seit  zwei  Jahren 
einen  VC  20.  Noch  lieber  wäre  ihm 
der  größere  Bruder  —  der  C  64  — 
gewesen,  doch  in  Anbetracht  der 
damaligen  Preise  gab  es  keine  Ver¬ 
einbarung  zwischen  diesem  Modell 
und  dem  Familienbudget. 


Am  Anfang  war  das  Spiel... 

Anfangs  probierte  sich  Wolf  Rob¬ 
rahn  im  Programmieren  von  Com- 
puterspielen:  Abenteuerspiele,  Re¬ 


=  Belichtungszeit  2  s 

aktionsspiele,  Strategiespiele,  Spie¬ 
le  mit  oder  ohne  Grafik  —  zu  jedem 
Thema  entwickelte  er  Ideen  und 
setzte  sie  mit  dem  VC  20  um.  Doch 
die  Spiellust  erschöpfte  sich  bald.  Es 
war  an  der  Zeit,  den  Computer  nutz¬ 
bringend  einzusetzen.  Und  was  lag 
näher  als  ihn  für  Aufgaben  heranzu¬ 
ziehen,  die  den  Hobby-  und  Berufs¬ 
fotografen  entlasten. 

Zwei  »nutzbringende«  Projekte 
sind  seitdem  schon  realisiert:  Die 
Einzelbild-Steuerung  einer  Su¬ 
pers-Kamera  mit  dem  VC  20  und 
das  in  diesem  Artikel  beschriebene 
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ihm  bei  Trickfilmaufnahmen  assi¬ 
stieren,  indem  er  die  Filmkamera 
vor-  und  rückwärts,  nach  oben  und 
unten  sowie  nach  rechts  und  links 
bewegen  kann.  Der  Meister  möchte 
‘sich  selbst  von  diesen  Tätigkeiten 
entlasten,  um  sich  ausschließlich  auf 
die  Motive  konzentrieren  zu  können. 


Und  jetzt  wird  gerechnet 


Die  Bilder  zeigen  Aufnahmen,  de¬ 
ren  Werte  mit  dem  Programm  »Foto¬ 
grafisches  Fachrechnen»  ermittelt 
wurden.  Bei  Bild  1  war  es  Ziel,  das 
Tonbandgerät  im  Hintergrund  un¬ 
scharf  erscheinen  zu  lassen,  wäh¬ 
rend  das  Mikrofon  im  Vordergrund 
scharf  abgebildet  ist.  Es  handelt 
sich  dabei  in  erster  Linie  um  ein  Tie¬ 
fenschärfeproblem.  Mit  dem  Pro¬ 
gramm  wurde  der  Tiefenschärfebe¬ 
reich  ermittelt:  Wolf  Robrahn  gibt 
nacheinander  verschiedene  Werte 
em,  bis  einer  der  errechneten 
Schärfenbereiche  zusagte  (verglei¬ 
che  auch  das  Anwendungsbeispiel 
weiter  unten). 

Fast  bei  jeder  Mittelformat-  und 
Kleinbildkamera  gibt  es  eine  am 
Blendenring  eingravierte  Tiefen¬ 
schärfetabelle.  Das  Einstellen  ist 
hier  also  kein  Problem  —  man 
braucht  nur  richtig  abzulesen  (Bild 

2) .  Schwieriger  wird  es,  wenn  man 
mit  emer  Vorsatzlinse  arbeitet.  Dann 
ist  das  Ermitteln  der  Tiefenschärfe 
am  Blendenring  nicht  mehr  mög¬ 
lich.  Es  muß  gerechnet  werden: 
Wieder  ein  Programm-Einsatz  (Bild 

3) .  Diese  Beispiele  sind  nicht  nur  für 
Fotografien  in  Kleinbild-  und  Mittel¬ 
formattechnik  interessant,  sondern 
ganz  besonders  auch  bei  der  Groß¬ 
bildfotografie.  Hier  per  Tastendruck 
die  Bildgröße,  Büdweite  oder  die 
korrekte  Belichtungszeit  zu  ermit¬ 
teln,  ist  eine  wesentliche  Erleichte¬ 
rung,  die  Wölf  Robrahn  vor  allem 
bei  Table-Top-Aufnahmen  ständig 


itiited  States 


Brennweite  5C 


Bild  1.  Brennweite  50  mm,  Blende  4  =  Belichtungszeit  1/30  s 


Programm  zum  fotografischen  Fach¬ 
rechnen.  Momentan  baut  Wolf  Rob¬ 
rahn  nach  den  Schaltplänen  von 
Commodore  eine  Modulbox  für  sei¬ 
nen  »Fotolehrling«.  Die  benötigten 
Platinen  stellt  er  »selbstverständ¬ 
lich«  auf  fotografischem  Wege  her. 
Dabei  fertigt  er  zunächst  eine  Zeich¬ 
nung  an,  die  mit  einem  Strichfilm  ab¬ 
fotografiert  wird. 

Auf  einem  Strichfilm  gibt  es  nur 
schwarze  und  weiße  Darstellungen, 
keine  Grauwerte.  Für  die  weitere 
Verarbeitung  ist  es  unabdingbar, 
daß  die  feinen  Linien  »wirklich 


schwarz«  sind.  Die  Strichfilm-Auf- 
nahme  (Negativ)  wird  in  der  ge¬ 
wünschten  Platinengröße  auf  eine 
Folie  (Positiv)  kopiert.  Diese  Folie  ist 
die  endgültige  Vorlage:  Sie  wird  auf 
die  Platine  gelegt,  mit  einer  Glas¬ 
platte  fest  angedrückt  und  mit  UV- 
Licht  belichtet.  Nach  der  Entwick¬ 
lung  lassen  sich  die  auf  die  Platine 
übertragenen  »Muster«  ätzen.  Auch 
das  erledigt  Wolf  Robrahn  selbst. 
Und  noch  ein  Projekt  hat  der  Hobby- 
Elektroniker  geplant.  Er  möchte  den 
VC  20  für  eine  totale  Kamerasteue¬ 
rung  einsetzen:  Der  Computer  soll 


nutzt. 

Einen  Haken  hat  das  Ganze:  Der 
VC  20  ist  leider  kein  »Geländecom¬ 
puter«,  der  in  Feld,  Wald  und  auf  der 
Wiese  genauso  komfortabel  einsetz- 
bar  wäre,  wie  auf  dem  heimischen 
Schreibtisch  nahe  der  Steckdose. 
Bei  Außenaufnahmen  muß  auch 
Wolf  Rohbrahn  die  benötigten  Wer¬ 
te  ohne  seine  »Fotolehrling«  ermit¬ 
teln. 

Hardwarevoraussetzungen  für 
»Fotografisches  Fachrechnen«  ist  ein 
VC  20  mit  einer  8  KByte  Speicher¬ 
erweiterung  und  einem  Kassetten¬ 
laufwerk.  Die  grafische  Darstellung 
(Bild  4)  veranschaulicht  den  allge¬ 
meinen  Ablauf  des  Programms. 
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Der  VC  20 
als  »Fotolehrling 


(( 


1  rein  fotografisches  fachrechnen 

2  rem 

3  rem  <c)  1384  by 

4  rem  wolf-d.robrahn 

5  rem  beethovenstr.  18 

6  rem  2200  etmshorn 

7  rem 

8  rem 

10  P  ok  836879  J 1 74 : P  r i ntchr$( 1 44 ) , ehr* < 14  > : P  ok  e657 , 128 
20  datal. A, 2. 2. 8, 4,5.6-8,11, 16/22,32,45,64,90, 128 
33  rem  ***#  menu  *##* 


Nachdem  es  geladen  und  mit 
RUN  gestartet  wurde,  erscheint  auf 
dem  Bildschirm  das  Menü  (verglei¬ 
che  Abbildung  rechts).  Über  die 
Zahlentastatur  wird  der  gewünschte 
Menüpunkt  angewählt  und  die  be¬ 
kannten  Größen  werden  im  Dialog 
eingegeben.  Hierbei  gilt  es  einige 
Punkte  zu  beachten: 

1.  Bei  Längenmaßen  muß  immer 
eine  Größeneinheit  angegeben 
werden.  Hierzu  ein  Beispiel:  Wird 
die  Brennweite  erfragt  und  man  gibt 
nur  »12«  ein,  erscheint  die  Fehler¬ 
meldung  »EINHEIT  VERGESSEN«. 
Richtig  ist  es,  »12  CM«  oder  »120  MM« 
einzugeben.  Wichtig  ist,  zwischen 
der  Zahl  und  der  Meßeinheit  eine 
Leerstelle  zu  setzen.  Wird  eine  Ein¬ 
gabe  gefordert,  deren  Größe  nicht 
bekannt  ist,  genügt  auch  hier  nicht 
einfach  eine  »0«  einzugeben  — 
selbst  in  diesem  Fall  ist  die  Angabe 
emer  Maßeinheit  erforderlich.  Um 
eine  einheitliche  Berechnungs¬ 
grundlage  zu  haben,  werden  auto¬ 
matisch  alle  Längenmaße  in  Milli¬ 
meter  umgerechnet. 

2.  Bei  der  Blende  muß  ein  Wert 
der  internationalen  Blendenreihe 
eingegeben  werden.  Hiernach  sind 
folgende  Eingabe-Werte  zulässig: 
1.4;  2;  2.8;  4;  5.6;  8;  11;  16;  22;  32;  45;  64; 
90  und  128. 

Auch  hierzu  ein  Beispiel:  Wird  die 
Blende  abgefragt  und  man  gibt 
»12.5«  ein,  erscheint  die  Fehlermel¬ 
dung  »KEINE  GUELTIGE  BLENDE«. 
Erlaubt  ist  es,  Blende  »16«  oder  —  da 
auch  halbe  Blenden  einstellbar  sind 
—  »16*1/2«  einzugeben.  Das  Stern¬ 
chen  zwischen  16  und  1/2  ist  unbe- 


100  prifit"S}a  fotografisches 
105  clr 

110  Pr  int  "VII.  Berechnung  der" 

120  Print"*MHBi  IdQroesse" 

130  Pr  int  "»12.  Berechnung  der" 

140  Print "HMDM0e9enst*nds9roes. " 

150  Print"üW3.  Verwendung  von" 

160  P  r  i  nt "  MMMWorsatz  l  i  nsen" 

178  Pr  int  "»W.  Bcrech.der  Bildw." 

180  Print"MM>iD3rennw.&  Entfern." 

130  Pr  int  "»15.  Berechnung  der" 

206  Print">H*iIBelichtun9szeit" 

210  Pr int "SMS.  Berechnung  der" 

220  PrinflMirTiefenschaerfe" 

230  Print"lilsnCode-Zahl  eingeben" 

233  rem  ****  code-ein9abe  ##** 

240  9eta* 

250  ifa*»"l"thenl000 
260  i f a*H " 2 " then2000 
270  ifa*="3"then3Ö00 
280  if a*="4"then4000 
290  i f  a*= " 5 " then5000 
295  ifa$="6"then6000 
300  9oto240 

1000  Pr  i  nt" «3  **#  BILBGROESSE  *## 

1005  gosub 11000 
1010  inPut'STHBi IdweiteS"  ;al* 

1012  gosub 1 2000 ! i f 4 = 1 then 1010 
1015  gosub 10000 
1017  a-zu 

1020  i  nP  ut "  STBBrennwe  i  te  S" .  a  1  $ 

1022  9osu.b  1 2000 :  if4=l then  1020 
1025  gosub 10000 
1027  f-zw 

1030  inPut"SISCe9enstands9r.  S"  Jal* 

1031  gosub 12000 : ifs=lthenl030 

1033  gosub 10000 

1034  9=zw 

1036  inPut"  »Entfernung  3" ;  al* 

1037  9osub 1 2000 : ifq=lthen»95 
1040  gosub 10000 

1045  e«zu 

1050  i  f aO0andeO0and9O0thenb=  C a*9 >  /e :  goto  1200 
1060  iffO0andgO0andeO0thenb=<f*9)/<e-f >  9otol200 

1063  ifa=0andf>0thenl080 

1064  ifa=0andf=0thenl880 

1065  ifa<fthen600@0 

1066  ifa=fthen60500 

1Ü7G  ifaO0and9O0andfO0thenb=(Ca-f  )*9>/f  9c.to  1200 

1080  9osub61000 

1085  clr 

1090  goto l 0 l 0 

1200  b=int<100*b>rl00 

1210  i f b< i 0@thenm$= " mm" 

1220  i  f b>=  1 00thenb=b/ 1 0 :  rn*= "  cm  " 

1230  iff=0thenf=i nt<  1O0*< <e*a>/<e+a)  10/100 : Pr i nt "SIBrennweite"f "mm" 
1248  i f a*0thena=  i nt <  1 00* < <e*f )/<e -f)> >/10@ : PrinfSIBi ldueite"a"mm" 

1 250  i  f'e=0thene=  i  rit <  1 00*  ( ( a*f ) /( a-f >  )  > /1 00 ;  P r  i  nt "  sEntf er nun9 " e "  mm " 

1 260  P r  i  nt "  STB  I LBGROESSE"  b ;  nvf 

1270  Print"SMBFETURNS  wenn  weiter" 

1280  9etaf  •  ifa$Ochr$<13>thenl280 
1290  goto 100 

2000  Print"«»*  GEGENSTflNDSGROESSE  *" 

2005  9osub 11000 

2010  i  r.P  ut "  SET®  i  l  d9r oesse  d" ;  a  1  i 


Fachrechnen 


dingt  zu  setzen. 

Erklärungen  für  die  in  dem  Pro¬ 
gramm  vorkommenden  Fachbcgrif 
fe,  wie  Gegenstandsgröße,  Bildwei¬ 
te  und  ähnliches  können  in  dem 
Buch  »Fotografie«  von  Kurt  Dieter 
Solf,  erschienen  im  Fischer  Verlag, 
nachgeschlagen  werden. 


Ein  kleines  Beispiel 


Ein  Aufgabenbeispiel  soll  den 
Umgang  mit  dem  Programm  ver¬ 
deutlichen: 

Eine  Briefmarke  von  2  cm  Breite 
und  3  cm  Höhe  soll  formatfüllend  mit 
einer  Kleinbüdkamera  aufgenom- 


2020 

2030 

2040 

2O50 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

214Q 

2150 

2160 

2170 

2180 

2185 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2300 

2310 

2320 

2330 


9osub  1 2000 :  i  f  4  *  1  the v.20 1 0 

9OSUbl0000 

b=zw 

inPut  "SBBi  IdweiteS'Oal* 
gosub 1 2000  i  f  4  =  1 then2050 
gosub 10000 

3 —ZW 

i nPut " asEntf ernum9 S" ; al$ 
gosub  1 2000 :  i  f  4 = 1  the  r>2090 
9osub 10000 
e=zw 

i  nP  ut "  2l3Br  ennwe  i  te  S" ;  a  1 S 
gosub 1200C  if 4  =  lthen2140 
gosub 10000 


Basic-Listing  für  fotografisches 
Fachrechnen 


f =zw 

if aO0andeO0andbO0then9=<e#b>/a  9oto2308 

ifa=0andf>0then2220 

i f a«0andf =0then2240 

i  f  a<f' then60000 

ifa®fthem60500 

if  eO0andbO0andfO0then9=C<e-f  >*b)/f :  9oto2300 

i  f  f  O0andbO0ar.daO0the  ri9= ( f  *b > / < a-f  ) :  9oto2300 

9osub61008 

clr  ; 9oto2010 

3= i nt ( 1 00*9  > / 1 00 

i f  g< 1 00thenm*= " mm " 

i f 9>= 1 00then9=9/10 : m*= " cm" 

i  f  f =0thenf' =  i  nt  <  1 00*  <  <  e*a ) /(.  e+a  ) )  >/ 1 00 ;  P  r  l  nt "  HBrennue  i  te "  f "  mm " 


140  ■Way 
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men  werden.  Welche  Vorsatzlinse 
ist  notwendig,  wenn  eine  Brennwei¬ 
te  von  5  cm  zur  Verfügung  steht.  Der 
maximal  einstellbare  Nahbereich 
beträgt  40  cm. 

Zu  berechnen  sind:  Bildweite, 
neue  Brennweite,  Dioptrien-Wert 
(Brechkraft  der  Linse).  Zunächst  gilt 
es,  die  längste  Bildweite  festzustel¬ 
len;  dazu  wird  aus  dem  Hauptmenü 


das  Untermenü  4  angewählt.  Ge¬ 
fragt  wird  nach: 

BILD- 


GROESSE 

Eingabe:  0  MM 
(zur  Berechnung 
nicht  wichtig) 

BILDWEITE 

Eingabe:  0  MM 
(Größe  nicht  be¬ 
kannt,  soll  berech¬ 
net  werden) 

BRENN- 

WEITE 

Eingabe:  50  MM 

GEGEN¬ 

STANDS- 

GROESSE 

Eingabe:  0  MM 
(zur  Berechnung 
nicht  wichtig) 

ENTFER- 

NUNG 

Eingabe:  40  CM 

Ergebnis: 

BILDWEITE  =  5.7 
CM 

2340  i fa=8thena=  i nt C 1 08* < C e#f )7<e-f ))V100-'Print"ZIBildweite"a" mm " 

2350  ife=0thene=int<108$<<a*f)7':a-f>>V1000:Print"iEntfernun9"e"cm" 

2360  Print" «I3EGENST RNDSGR . "9;mJ 
2370  Pr  int  "SIMSRETURN  SI  wenn  weiter" 

2380  9eta$  if  a$Ochr*  <13;  then2380 
2380  9otolQ0 

3000  print."«a  ***  VORSATZLINSEN  ***" 

3010  9osub 1 1000 

3020  inPufSlSBrennweite  altS";al$ 

3030  9osab 12000 : if 4=1 then3020 
3040  90sub 10000 
3050  fl=zw/10 

3060  inPut  "EiaBrennweite  neua";al$ 

3070  9osubl2000; if4=lthen3068 
3086  9osubl0000 
3030  f2=zw710 

3100  inPut"5TaDioPtrien3";di 

3105  iff lO0andf2O0anddiO0then9osub61000 : 9oto3010 
3 1 1 0  i  f  f  1 00andf2O0thend  i = <1 007f 2  >  -  <1007f  1)  :  d  i = i  nt  <1 0*d  i )  71 0 
3120  i  f  f  1 O0andf  2O0ther>R  r  int " HEID I OPTR I EN : " d i  -9oto3150 

3125  i f ■ f 2=0andd i =0thend i = i nt  < 1 0* ( 1 007f 1 )) 7 1 6 : P  r i nt " SEID I OPTR I EN : " di : 9oto3 1 50 

3126  i  f  f  1 =@a ndf  2=0thenf'  =  i  nt <1 0*  <1 007d i  > )  -  P r  i  nt " SEIBRENNWE I TE  "  f  " mm "  •  9oto3 1 50 
3130  i  f  f  1 00andd  i  O0thenf  2=  <  1 00#f  1>  7  C 100+ <  d  i  #f  1 )  >  :  f  2=  i  nt  <  1 0*f  2  ) 

3140  iff  lO0anddiO0thenPri nt " SEIBRENNWE I TE  NEU " f 2" mm " 

3150  Print"SMRFETURNS  wenn  weiter" 

3160  9eta*:  ifa*Ochr$<13)then3160 
3170  9oto 1 00 

4000  Pr  int  "38  Berechnu.n9  von  fi,f/E  " 

4010  9osub 11000 
4020  inPut"SI3Bi  ld9roessea"  J  3.1$ 

4030  9osubl2000:  if'4=lthen4020 
4040  9osub 10000 
4050  b=zw 

4060  i  nP  ut"  SI3B  i  i  dwe  i  te  S" ;  s  1  $ 

4870  9osub 12000 : ifn=lthen4060 
4880  9osub  10000 
4090  a=zw 

4100  inPut"  HEBrennwe  i  te  3" ;  a  1 1 
4116  9osub 1 2000 : i f  4 = 1 then4 1 00 
4120  9osub 10000 
4130  f=zw 

4140  i nP  ut "  aS3e9enstands3r . ä";al$ 

4150  9osu.b 12000:  ifq=lthen4140 
4160  9osv.b  10000 
4170  9=zw 

4 1 30  i  nP  ut "  ifSt  ntf  er nun9  3" ;  a  1  $ 

4190  9osub 12000 : if4=lthen418ä 
4200  9osub 10000 
4210  e=zw 

4220  if a<f andaO0-3.ndfO0then60000 
4230  i  f a=f andaOOandf Oßthen60580 
4380  iff =0andeO0andaO@then4500 
4318  i  f f' =6andaO0andbO0and9O0then4353 
4328  i  f f =0andeO0andbO0and9O0then4603 
4330  if a=0andf<>0andbO0and9<>8then4700 
4348  i f a=0andeO0ardf <>0then4720 
4350  i  f a=@andbO0and9<>0andeO0then4750 
4360  i  f e=0andf <>0andbO0and9O0then4850 
4370  i f e=0anda<>0andf <>0then4860 
4380  i  f e=0and9O@andbO0andaO0then4870 
4390  i f x=0then9osub6 1000 : clr : 9oto4020 
4450  Print"£*il3?ETURNS  wenn  weiter" 

4460  9eta$:  ifa*Ochr$a3)then4460 
4470  9otol@0 

45@0  f =  <e#a> 7 < e+a > : 9oto4®50 
4550  f=a7( <b/9*+l > : 9oto4650 
4600  f=e/<C9/b>+l> 

4650  f=int<f ) : Print"SIBREHNWEITE"f ' 

4700  a=f*<<b/9>+l>  9oto4300 
4720  a=<e*f)7<e-f>  9oto4S00 
4750  a=<b*e>79 

4800  a=  i nt < a > 7 1  © :  P  r i nt " SIE I LDWE I TE" a ' 

4850  e=f  *<  <97b)+l  >  :  9oto4'300 
4860  e=<a*f>7<a-f>:9oto4900 
4870  e=(9*a>7b 

4900  e= i nt  <e ) 71 0 : P  r i nt " ^ENTFERNUNG " e " cm " : x= 1 ■ e=0 : 9oto4450 
5000  Prinf'SSa  **  BELICHTUNGSZEIT  ##’’ 

5005  9osub 11000 
3007  dimbl<15> 

5010  inPut"  ETStE  l  ende  fl" ;  a  1  $ :  a2$=a  1  $ 

5011  restore : f orz= 1 to 1 4 

5012  readP : bl <z)=P 
5813  ifval<al$>=Pthenzz=l 

5014  next 

5015  ifzz=0thenPr int "keine  9uelti9e  Blende !" -9oto50 18 
5817  9osub62000 
5028  inPut" STSErennwei teS" ;al$ 

5030  9osubl200@: if4=lthen5020 
5040  9osubl0008 
5050  f=zw 
5Ö60  inPut"STBBi  ldweiteS"  Jali 

5070  9osu.b  12000:  if4=lthen5060 
5080  9osub 10800 
5090  a=zw 

5095  ifa<f then600@0 

5100  inPut"SI8Bel.  ZeitS" al$  •  a3$=al$ 

5110  i  f  l  ef  t$  <  a  1  $ 2  >  =  "  1 7  " thena  1  $=r i 9ht$ < a  1  $ >  len<al$)-2)  :  t=17val  (alf)  :9oto5200 
5120  t=vaUal*> 

5200  fa=<a#a)7<f#f> 

5210  t=t*fa:fa=s4r(fa> : ift<lthent$=stri(int<17t>>:t$=ri9ht*Ct$, len<tf)-l> 

: t$=" 17 "+t$ 

5220  i  f t>=  1  thent$=str$  (  i  Jit  <1 0*t  >7 1 0  > 

5230  n=n7fa 


l"  :  X=1 : f =0 : 9oto4330 


i" : x=l : a=0 : 9oto4360 
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Der  VC  20 
als  »FotoleMig« 


Die  größte  Bildweite  beträgt  also 
57  Millimeter.  Zur  Berechnung  der 
Brennweite  wird  abermals  das  Un¬ 
termenü  4  angewählt.  Gefragt  wird 
wieder  wie  vorher: 


BILD- 

GROESSE 

BILDWEITE 


BRENN¬ 

WEITE 


GEGEN- 

STANDS- 

GROESSE 

ENTFER¬ 

NUNG 


Ergebnis: 


Eingabe:  36  MM 
(Kleinbildformat) 
Eingabe:  57  MM 
(wie  vorher  er¬ 
rechnet) 

Eingabe:  0  MM 
(Größe  nicht  be¬ 
kannt,  soll  errech¬ 
net  werden) 


Eingabe:  3  CM 

EINGABE:  0  MM 
(soll  berechnet 
werden) 

BRENNWEITE  = 
25  MM 

ENTFERNUNG  = 
4.7  CM 


Mit  der  neuen  Brennweite  läßt 
sich  nun  —  über  das  Untermenü  3  — 
die  gesuchte  Vorsatzlinse  berech¬ 
nen. 

Gefragt  wird  nach: 


BRENNWEI¬ 
TE  ALT 
BRENNWEI¬ 
TE  NEU 
DIOPTRIEN 


Ergebnis: 


Eingabe:  50  MM 

Eingabe:  25  MM 
Eingabe:  0  (soll 
berechnet  wer¬ 
den) 

DIOPTRIEN  =  20 


Hiernach  muß  eine  positive  Vor¬ 
satzlinse  von  20  Dioptrien  Brechkraft 
benutzt  werden,  um  die  gestellte 
Aufgabe  zu  erfüllen.  Wer  die  Rech¬ 
nung  überprüfen  möchte,  kann  die 
Gegenprobe  machen.  Bei  BRENN¬ 
WEITE  NEU  muß  hierbei  »0  MM« 
und  bei  DIOPTRIEN  »20«  eingege¬ 
ben  werden. 

(Wolf  Robrahn/kg) 


5240 

5250 

5260 

5270 

5500 

5510 

5520 

5530 

5540 

5550 

5560 

5570 

6000 

6010 

6020 

6030 

6040 

6050 

6055 

6056 

6057 
6060 
6065 
6070 
60S0 
6090 
6100 
6105 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6300 
6305 
6310 
6320 
6330 
6335 
6340 
6500 
6505 
6600 
6b  10 
6620 
6625 

6629 

6630 
6640 
6645 
6650 
b655 
6660 
6665 
6670 
6675 
6679 
6630 
6685 
6690 
6695 
6699 
7000 
7010 
7015 
7020 
7025 

7030 

7031 

7032 
7934 
7035 
7040 
7050 
7090 
7100 
7110 
7120 
7300 
7400 
7500 
7505 
7516 
7515 
7520 
7525 
7530 

7532 

7533 
7535 
7540 
7545 
7550 
7555 
7560 
7565 
7570 


**  " 

Filmformat  ein!" 
Schmalfilmen: " 


f orz=ltol3 

i f n=b Hz) thenb  1  $=str$ C b Uz > )  :  9oto5500 
ifn>bl <z)andn<bl <z+l >then9osub62500 : 9oto5500 
next 

Print"  SISK*****  SBe  1  i  chtu«9 3"  :  P  r  i  nt  "El  ende :  "a2* 

Print"SIBel.  Zeit:"fc$"  sec" 

Pr  int"  TSEloder'. . . " 

P  r i nt "  HB  l ende : " b l $ 

Print"HBel.  Zeit;  "a3$"  sec" 

Print"S9HtSRETURN3  wenn  weiter" 

9eta$  ifa$Ochr$<  13)then5560 
goto 100 

Print"«ra  **  TIEFENSCHfiERFE 
Pr int "Bitte  geben  Sie  Ihr 
Print" SBe i  Verwendung  von 
print"2116  mm  =  16" 

Print"BSuPer  8  =  s8" 

PrinfSHormal  8  =  n8" 

Pr int"£*li»HEeisP  iel :  " 

P r  int "  TI3F ormat ;  3?  24x36  mm " 

i  nP  ut "  SFor rnat :  S" ;  a  1  $  '■  3.2$= a  1  $ 
ifal*="  "ther.6620 

i f  al $ =" s3 " ora 1 * = " nS " thensz=4e-03 : 9oto6300 
i  f  a  1  *= "  1 6  " thensz=8e-03 : 9oto6300 
9osubl2000: if4=lthen6060 
al*=left$<al*,  len<al*>-2> 
a$="" 

f  orz= 1 toi en  <  a 1 $ > 
a$=a$+mid£ (al$> z>  1) 
ifmid$<aliiZ+l< 1 )="x"then6150 
next 

b$=ri9ht$Cal$. len(al$)-<z+l ) ) 
a  1  $*a$+r i 9ht$ <  a2$ . 2 ) 

9osub 10000 
al=zw 

al$=b$+ri9ht*<a2$,2> 

gosub 10000 

bl=zw 

c-s4r<(al*al>-Kbl#bl>)  :sz=c/1500 
sz= i nt  <1 000*sz ) 7 1 600 

szS=strS<sz> : szi=r i 9ht$ (sz$, len<szi)-l> 
forz=ltolen<sz$> 

ifmid$<sz*,z, 1) =chr$  <  69 ) then6340 

next 

9oto650ü 

sz$=" .  00"  +  leftHsz$,  1 ) 

P r i nt " SIT o leranz  l-sz$ "  mm " 
f  orz=lto508 : next 

3.2$=""  : z=0 : a$=" "  :b$=”"  :al=0:bl=0:c=0;sz$=" " 

Pri nt "SEWenji  ra.it  errechneter  Toleranz  einverstandenbitte  nur  3=:ETURH" 


dimbl <  15)  :  restore ;  f orz=ltol4 :  r-eadP  :  bKz)=P  '  next 
rem  ####  2.  menu  ##*# 

Print"äS  moe9lichen  Berechnungsarten  " 

Print"JCTIl.  Tiefensch.  bei" 

P  r  i  nt "  i  nste  1 1 .  Unend  l .  " 

Pr int "IEEE.  Tiefensch.  bis" 

Print "  »»»»lajnend  1  i  ch  " 

P r i nt " £CTt3 .  Tief ensch .  von " 

P  r  i  nt1 " »BMfend  1 .  NahP  unk  t  S  bis" 

Print"  >>>>iagnd  1 .  Fer  nP  unk  t 11 
Print"  itEMiaCode-Zah  1  ei  nweben  " 
rem  *###  code-ein9abe  #### 

9eta$ 

ifval (af )=1 then7000 
ifval <a$)=2then7500 
i  f  va  Kal)  =3then3000 
9oto6680 

Print"SJSEinstel  lun9  UNENDLICH" 
i  nP  ut "  STZBr  ennwe  i  te  3" ;  al$ 
gosub 1 2000 : i f q  »1 then70 1 0 
gosub l 0000 
f=zw 

i  nP  ut "  21SB  l  ende  3" ;  al  $  ■  zz=Q 
ifal$="0"thenn=0 : 9oto7400 
restore 1  forz=ltol4  '•  readP 
ifva l <alt)=Pthenzz= 1 
next 

ifzz=0thenPrint"keine  9uelti9e  Blende !" : 9oto7030 
9osub62000 

nP=<(f#f>/<sz*n#10>> 

i  f  nP  >=  1 000t hennP = i  nt  <  nP  ) 7100:  "  r„ »  :  9oto7300 

ifnP>=100thennP=int<nP) :m$="cm" ;9oto7300 
i f  nP  < 1 00  t  hennP  =  i nt  C 1 0*nP )71 0 : m$= " cm " 

lf x=0thenP r i nt " SEchaer f e  von"nP ; Print"Sbis  Unend 1  ich" 

9oto63000 

Print" MXahP unkt  bis  Unendlich" 
inPut"E!SBrennweiteS"  ;  all: 

9osub 1 2000 : i f 4  =  1 then7505 

gosub 10000 

f=zw 

i  nP  ut "  EISE  l  ende  S" ,  a  1  $  ■  zz=Q 
if  a 1 $= " 0 " thenn=0 : 9oto7550 
restore : f or z= 1 to 1 4 : readP 
i f va l <  a 1 i >=P thenzz= 1 
next 

ifzz=0thenPrint"keine  9uelti9e  Blende !"•' 9oto7525 
9osub€2800 

i  nP  ut"  a»lahP unk  tS'Ual $ 

gosub 12060:  ifq=lthen7556  n  .  , .  ...  .  .  „ 

Sosub  10000  Basic-Usting  für  fotografisches 

np=zw  Fachrechnen  (Fortsetzung) 

ifn=0then7708  '  37 
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7580  iiP  =  <  f*f  >  /  <  2 #sz#n*  1 0  > 

7530  i fnP >=  1 00thennP = i nt < nP >/'i90- m*="m" : 9oto?600 
7535  i f nP < 1 80thennP =int< 1 0#np ) 7 1 0  =  mf = " cm " 

7600  Print" SBchaer  f e  von"np;mf 
7610  Print"Zbis  Unendlich." 

7620  Pr int "SEE  INSTELLUNG "2*nP ; mf 

7630  9otoS3000 

7700  n=<f*fVC2*sz*nP> 

7705  forz=ltol3 

7710  ifn=bl < z ) thenb l*=str*  <bl <z) )  ■’ 9oto?738 
7715  ifn>bl (z)andn<bl (z+1 )then9osub62500 ; 9oto7730 
7720  next 

7730  Print"anoeti9e  ß lende "blf 
7740  9otoS3000 

8000  P r i nt " JSSWflHPUNKT  bis  FERNPUNKT" 

8010  inPut"  IMahP  unk  t  S"  i  alf 
80 1 4  9osub 1 2000 : i f q = 1 then80 1 0 
8016  9osub 10060 
8018  nP=zu 

8020  inPut"  HSF  er  nP  unk  1 3"  J  a 1  f 
8025  9osubl 2000  if 4=1 then8020 
8030  9osubl0000 
8035  fP=zw 

8040  inPut"£!HBrennueitea" ;  alf 
8045  9osu.b  12000  ■  if4=lthen8040 
8050  9osub 10000 


0060  f=ZW 

8080  i  fnP  <>0andf P  O0then9000 
8100  i nP ut "  aSB l ende  SJ" ; a 1 S ■ zz=0 
8110  restore : f orz= 1 to 1 4 : readP 
8120  ifval <al*>=Pthenzz=l 
8130  next 

3140  ifzz=8thenPrint "keine  9uelti9e  Blende!"  9otoS 100 
3150  9osubS20@0 

8160  i nP ut” £13E i nste 1 1 un9 3" i alf 
8 1 65  gosub 1 2000 :  i  f  ■ 4 =  1  ther.8060 
8170  gosub 19000 
8130  e-zu;e=e/10 
3130  nu=<f*fV<£z#n#10> 

8195  nP = <  nu#e  ) 7 <  nu+e ) 

8136  ifnu<=ethenml$="lilJnendl ich" : 9oto8230 

8209  cP=<nu#eV(nu-e) 

8210  i f f P < 1 00thenf P  =  i nt  < 1 0*fP ) 7 1 0 ■ m 1 f=" cm " 

8220  iffP>=100thenfP=int<fP)7100:mif="  m" 

8230  i  f nP  <  1 00thennP  =  i  nt  <  1 0$nP  >710  •'  mf =  "  cm  " 

8240  ifnP>=100thennP=int<nP ).-'100 : mf="m" 

8259  P  r i nt "  iHflHPUNKT  " nP ;  mf 
8268  PrinfSFERNPUNKT-  "fp;ml$ 

8276  9oto63003 
3000  e=C2*nP*f p >7<nP+fP > 

9010  ri=CCf#f>JfKfP-riP>>/<2*£z*nP#fP)  _ _  . 

9026  forz=ltoi3  G4£R  OHLll  19  - 

9925  ifn=bl <z>thenblf=strf <bl<z)  >  :  9oto3845 
9ü3ü  i  f n>b  l  <  z  >  andn<b  l  <  z+ 1 >  then9osub62500 :  9oto9045 
304ü  next 

9045  if e>=1000thene=int(e/18>/180 ;  mf  ='m"  :  3oto9@60 
3056  i f e>= 1 08thene= i nt ( e  >  7 1 0  • m$= " cm " : 9oto3060 
9055  i  f e<  1 0@thene=  i  nt  <  1 0*e  >  710 :  mf =  "  mm  " 

3060  P  r i nt "  SE I NSTELLUHG "ei mf 
9070  Print"cfnoeti9e  BLENDE "bl* 

3080  soto63000 

9993  rem  wandeln  in  milimeter 

1 0000  i fr i9ht* < a 1 * , 2> »"  m " thenzw=va l Cal * ) * 1 800 
10018  ifr i9htf Calf , 2)="cm"thenzw=val (alf >$18 
19020  ifri9ht*<al*j 2)®"mm"thenzw=val Calf > 

18030  return 

11000  Print"Geberi  Sie  folgende  Werte  ein:" 

11018  return 

11999  rem  mm  ueberPruefen  ob  einheit  *### 

12000  4=0  ifriQhtf Calf > 1 Xchrf  C76>then4=l : Print"Einheit  ver9essen" 

12810  return 

60000  Pr int "SEID ie  Rechnung  ist  unzu-laessi9,  da  die  Abbildung  vor  der" 

680 10  Pr  i nt "  1 .  Brennwe i te  l  i e9en  wuerde .  SEI" 

60820  PrinfSEilSRETURNS  wenn  weiter" 

60030  9etaf  i  fafOchrf  C 1 3  >  then60030 
60040  9otol00 

60500  Print"aDie  Berechnung  er9ibt  SJNENBLICHa. Wenn  moey-  lieh  statt  Bildweite 
die  " ; 

68510  Print" Entfernung  ein-  geben!“ 

68520  Print"c»iraF.:ETURNa  wenn  weiter" 

68530  9etaf  =  i  fafOchrf  <13  )  then60530 
60548  9oto 100 

61008  Print"ira  un9enue9ende  fln9aben  BITTE  UEBERPRUEFEN 


61010  return 

61393  rem  mm  berechnun9  d.  blende  in  dezimal  mm 
62008  n= va l <  a 1 $ ) : i fr i 9htf  C  a 1 $ , 3  > = " 1 72 " thenn=n* 1 . 2 
620 1 0  return 

62493  rem  ****  Umwandlung  d.  dezimalen  blende  mm 
62500  x 1 =n-b l < z > : x2=b Kz+1  )-n : ifxl>=x2then62600 
62510  if>:2>xlthen62700 
62680  bl=bUz>#1.2  xl=n-bl 
62610  ifxl>x2thenblf=str* (bUz+1))  =9oto62800 
62620  i f x2>=x 1 thenb lf=str$Cbl Cz> >+"*172" ; 9oto62S00 
62700  bl»bl<z)*1.2  x2=bl-n 

62710  ifxl>x2thenbl*=strf Cbl Cz) >+"#172" : 9oto62860 
62720  i f ;<2>=x  1  thenb lf=strf C bl  Cz>  > 

62800  return 

63008  °rint"SMI91äenu  oder  Swateiter" 

63010  9eta* :  if a*O"m"anda*O"w"then63810 
63020  1 f a*= " m " then 1 00 
6303Ö  clr : 9oto6620 
reada . 


Basic-Listing  für  fotografisches 
Fachrechnen  (Schluß) 
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A 

=  BILDWEITE 

Al 

=  SEITENLAENGE  1 

B 

=  BILDGROESSE 

Bl 

=  SEITENLAENGE  + 

BL(X) 

=  BLENDENREIHE 

C 

=  BILDDIAGONALE 

DI 

=  DIOPTRIEN 

E 

=  ENTFERNUNG 

F 

=  BRENNWEITE 

Fl 

=  BRENNWEITE  ALT 

FA 

=  FAKTOR 

FP 

=  FERNPUNKT 

G 

=  GEGENSTANDS- 

GROESSE 

N 

=  ERRECHNETE  BLENDE 

NP 

= NAHPUNKT 

NZ 

=  NAHPUNKT  UNEND- 

LICH 

P 

=  BLENDENVARIABLE 

SZ 

=  SCHAERFENTOLERANZ 

T 

=  ZEITVARIABLE 

X 

=  KONTROLLVARIABLE 

XI 

=  HILFSVARIABLE  FUER 

BLENDENBERECHNUNG 

X2 

=  DITO 

Z 

=  SCHLEIFENVARIABLE 

ZW 

=  ZWISCHENVÄRIABLE 

ZZ 

=  KONTROLLVARIABLE 

A$ 

=  HILFSVARIABLE 

Al$ 

=  EINGABEVARIABLE  ZUR 

WEITEREN  AUFBE¬ 
REITUNG 

A2S 

=  HILFSVARIABLE  FUER 

BLENDE 

A3$ 

=  HILFSVARIABLE  FUER 

ZEIT 

BS 

=  HILFSVARIABLE 

BL$ 

=  BLENDENWERT  ALS 

STRING 

M$ 

=  VARIABLE  FUER  MM  # 

CM  ODER  M 

MlS 

=  DITO 

SZ$ 

=  SCHAERFENTOLERANZ 

ALS  STRING 

T$ 

=  ZEIT  ALS  STRING 
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Programmierwettbewerb 


VC  20 /C  64 


e\«et 


Algorithmus  aus  dem  64 'er/ 
4),  Unterprogramme  für  Bild¬ 
schirmaufbau,  Formatie¬ 
rungshilfen  (Print  Using  oder 
Print  At,  Maskenaufbaupro¬ 
gramme,  etc.),  Sortierrouti¬ 
nen,  Programme  zur  Anpas- 


Nachdem  wir  ein  Magazin 
speziell  für  die  Commodore- 
Computer  geschaffen  ha¬ 
ben,  rückt  ein  Wunschtraum 
in  greifbare  Nähe: 

Wir  wollen  eine  Programm¬ 
bibliothek  aufbauen.  Eine  Bi¬ 
bliothek,  zu  der  jeder  Leser 
einen  (oder  auch  beliebig 
viele)  Beiträge  leisten  kann. 

Warum  eine  Bibliothek? 

ln  fast  jeder  Computerzeit¬ 
schrift  werden  irgendwann 
emmal  kleine  Programme, 
Utilities,  abgedruckt,  die  je¬ 
der  Programmierer  sehr  gut 
brauchen  kann.  Aber  wer 
kann  sich  schon  jede  Zeit¬ 
schrift  jeden  Monat  leisten. 
Und  nicht  jeder  hat  die  Zeit, 
jedes  eigentlich  interessante 
Programm  abzutippen.  Des¬ 
halb  wollen  wir  eine  Samm¬ 
lung  von  Unterprogrammen 
zusammenstellen,  die  jedem 
Leser  zur  Verfügung  steht. 

Was  soll  die  Bibliothek  enthalten? 

Sie  soll  hauptsächlich  Pro¬ 
gramme  enthalten  die  man 
entweder  in  bestehende  Pro¬ 
gramme  einsetzt  oder  von 
Anfang  an  in  ein  zu  ent¬ 
wickelndes  Programm  ein¬ 
baut. 

Dazu  gehören  zum  Beispiel: 
Druckerhilfsprogramme,  wie 
Hardcopy-Routinen.  Unter¬ 
programme  für  Plotter,  Gra¬ 
fik-Unterprogramme  (wie 
zum  Beispiel  der  Draw-line 


sung  bestimmter  Peripherie 
an  den  Computer  (zum  Bei¬ 
spiel  Epson  an  C  64) 

Auch  Utilities,  wie  etwa  Re- 
number,  Merge,  Delete  oder 
Copy  finden  ihren  Platz.  An¬ 
sonsten  sind  Ihrer  Fantasie 
keine  Grenzen  gesetzt.  Ma¬ 
chen  Sie  Vorschläge.  Es  sol¬ 
len  die  Leser,  also  Sie  sein, 
die  die  Bibliothek  aufbauen. 
Um  diese  Bibliothek  aufbau¬ 
en  zu  können,  müssen  je¬ 
doch  einige  Regeln  beachtet 
werden. 

Ein  Problem:  die  Variablen 

Diese  Unterprogramme 
sollen  von  jedem  eingesetzt 
werden  können,  und  das 
ohne  allzugroßen  Ände¬ 
rungsaufwand.  Ein  Problem 
dabei  sind  die  verwendeten 
Variablen.  Wenn  man  ein  Bi¬ 
bliotheksprogramm  in  sein 
eigenes  Programm  integrie¬ 
ren  will,  muß  man  sich  darauf 
verlassen  können,  das  keine 
gleichen  Variablen  für  unter¬ 
schiedliche  Zwecke  benutzt 
werden. 

Deshalb  bestimmen  wir 
die  Namen  der  Variablen, 
die  Sie  für  Ihre  Unterpro¬ 
gramme,  die  in  unsere  Bi¬ 
bliothek  kommen  sollen,  be¬ 
nutzen  dürfen.  Die  Art  der 
Parameterübergabe  erklä¬ 
ren  wir  dann  später  noch. 

Am  besten  benutzen  wir  in 
unseren  Unterprogrammen 
sonst  selten  benutzte  Varia¬ 
blennamen: 

Ql  bis  Q9  oder  Q9(0)  bis 
Q9(10)  für  numerische  Varia¬ 
ble 


Yl$  bis  Y9$  oder  Y9$(0)  bis 
Y9$(10)  für  String  Variable 
Wl(i,j)  bis  W9(i,j)  für  numeri¬ 
sche  Felder 

Vl$(i,j)  bis  V9$(i,j)  für  String 
Felder 

Als  Laufvariable  sollten  Sie 
die  sonst  üblichen  nehmen, 
aber  in  jeweils  doppelter 
Ausführung: 
II,JJ,KK,LL,MM,NN 
Beispiel  für  Parameterübergabe 

Angenommen,  es  existiert 
folgendes  Unterprogramm 
(siehe  Listing).  Dann  kann 
dieses  Unterprogramm 
durch  das  Hauptprogramm 
folgendermaßen  aufgerufen 
werden: 

7120 . 

7130  .... 

7140  Q1  =  K 

7150  GOSUB  100:REM  SOR¬ 
TIEREN  FF$ 
ing*CC  .... 

An  diesem  Beispiel  kann 
man  gleich  zwei  Punkte  er¬ 
kennen: 

1.  In  Zeile  7140  wird  die  Va¬ 
riable  K  an  die  Variable  Ql 
übergeben.  K  und  Ql  haben 
jetzt  also  den  gleichen  Wert, 
nämlich  die  Größe  des  Fel¬ 
des  FF$( ).  Nur  derjenige,  der 
das  Unterprogramm  in  sein 
Programm  einbauen  will, 
muß  wissen,  welche  Variable 
er  übergeben  muß.  Denjeni¬ 
gen,  der  das  Unterprogramm 
geschrieben  hat,  interessiert 
das  überhaupt  nicht.  Der 
muß  dem  späteren  Benutzer 
lediglich  mitteilen,  welche 
Variablen  er  benutzt  und  was 
sie  bedeuten. 

2.  Das  Feld  FF$( ).  Der  Er¬ 
steller  des  Unterprogramms 
hat  nicht  den  Namen  FF$  ge¬ 
wählt,  sondern  Vl$  (gemäß 
unseren  Konventionen  siehe 
oben).  Erst  der  spätere  Be¬ 
nutzer  hat  den  Namen  (ge¬ 
mäß  seinen  Bedürfnissen)  in 
FF$  umgewandelt.  Und  das 
aus  folgendem  Grund: 

Eine  Parameterübergabe 
eines  Feldes  ist  nicht  nur  zeit¬ 
raubend,  sondern  auch  der 
Speicherplatz  des  Feldes 
muß  verdoppelt  werden  (al¬ 
so  auch  neu  dimensioniert 
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werden).  Das  ist  hier  die  be¬ 
deutendste  Einschränkung 
in  Basic.  Aus  diesem  Grunde 
sollte  in  diesem  Fall  die  Mög¬ 
lichkeit  bestehen,  das  Unter¬ 
programm  zu  ändern  (also 
bitte  keinen  Listschutz  oder 
ähnliches  einbauen).  Die 
Zeilennummern  sollten  in 
Zehnerschritten  durchnum¬ 
meriert  werden. 

Aufbau  des  Unterprogramms 

Bitte  schicken  Sie  Ihre  Pro¬ 
gramme  mit  diesem  Aufbau 
ein:  In  der  obersten  Zeile  die 
Bezeichnung  UP  gefolgt  vom 
Namen  (im  Beispiel  Zeile 
110).  Darunter  die  Überga¬ 
beparameter  (130-140). 
Durch  einen  Strich  getrennt 
folgen  die  im  Unterpro¬ 
gramm  verwendeten  Varia¬ 
blen  ebenfalls  mit  einer  kur¬ 
zen  Erklärung  (170-180).  Am 
Schluß  des  Programmkop¬ 
fes  soll  eine  kurze  Beschrei¬ 
bung  des  Programms  stehen 
(200-220).  Erst  danach  folgt 
das  eigentliche  Programm. 
Es  sollte  mit  RETURN  been¬ 
det  werden. 

Daß  zusätzlich  noch  eine 
ausführliche  Programmbe¬ 
schreibung  (Sinn  und  Zweck, 
Funktionsweise,  Variablen¬ 
tabelle  etc.)  vorhanden  sein 
muß,  ist  eigentlich  selbstver¬ 
ständlich.  Gerade  bei  Utili¬ 
ties  ist  eine  ausführliche  Be¬ 
dienungsanleitung  (auch  für 
Anfänger  verständlich)  un¬ 
bedingt  notwendig!  Eine  gu¬ 
te  Lösung  ist  es,  diese  Be¬ 
schreibungen  zusätzlich  in 
REM-Zeilen  an  das  Pro¬ 
gramm  anzuhängen  (hinter 
dem  RETURN).  Man  kann  sie 
dann  bei  Bedarf  einfach  li¬ 
sten  und  auch,  wenn  nicht 
mehr  benötigt,  einfach  lö¬ 
schen. 

Wir  werden  alle  einge¬ 
schickten  Programme  testen 
und  jeden  Monat  die  besten 
prämieren,  veröffentlichen 
und  zusätzlich  als  Teil  eines 
Programmpaketes  als  Leser- 
Service  auf  Diskette  anbie¬ 
ten.  Wir  freuen  uns  über  je¬ 
den  Beitrag.  Jeder  kann  ge¬ 
winnen,  es  werden  jeden 
Monat  mehrere  Preise  ver¬ 
geben.  Und  jeden  Monat 
wird  ihr  Unterprogramm 
wieder  mitberücksichtigt. 
Schicken  Sie  Ihre  Unterpro¬ 
gramme  an:  Verlag  Markt  & 
Technik,  Redaktion  64'er, 
Programmierwettbewerb; 
Programmbibliothek,  Hans- 
Pinsel-Straße  2,  8013  Haar 
bei  München. 
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Anwendung  des  Mo¬ 
nats,  was  ist  das?  Nun,  Sie 
haben  einen  Commodore 
64  oder  einen  VC  20  und 
versuchen  diesen  irgend¬ 
wie  sinnvoll  einzusetzen. 
Unter  einer  sinnvollen 
Anwendung  versteht  die 
64 'er  Redaktion  alles,  was 
beispielsweise  Program¬ 
me  im  häuslichen  Bereich 
bewirken.  Es  kann  sich 
dabei  um  die  Berech¬ 
nung  der  Benzinkosten 
für  Ihren  Wagen  handeln, 
um  ein  eigenes  Textverar¬ 
beitungsprogramm  ge¬ 
hen,  sich  um  die  Verwal¬ 
tung  Ihrer  Tiefkühltruhe 
drehen  oder  ein  ausge¬ 
klügeltes  Telefon-  und 
Adreßregister  sein. 

Setzen  Sie  Ihren  VC 
20/C  64  mehr  oder  weni¬ 
ger  beruflich  ein?  Auch, 
oder  vor  allem,  das  ist  ei¬ 
ne  sinnvolle  Anwendung. 
Sie  führen  die  Lohn-  und 
Gehaltsabrechnung,  Ihre 
Lager  Verwaltung,  die  Be¬ 
stellungen  auf  einem 
Commodore-Heimcom- 
puter  durch?  So  spezielle 
Anwendungen  wie  die 
Berechnung  der  Statik 
von  selbstgezimmerten 
Regalen,  von  Klimadia¬ 
grammen  oder  Vokabel¬ 
lernprogrammen  für  den 
Schulunterricht  oder  die 
Zinsberechnung  bei  Kre¬ 
diten  sind  ebenfalls  The¬ 
men,  die  mehr  als  konkur¬ 
renzfähig  sind. 

Uns  ist  die  Anwendung 
des  Monats  — 
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Mark 

Schreiben  Sie  uns,  was 
Sie  mit  Ihrem  Computer 
machen: 

Redaktion  64 'er,  Aktion: 
Anwendung  des  Monats, 
Hans-Pinsel-Str.  2,  8013 
Haar  bei  München, 
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Alles  über  Modems  und  Akustikkoppler 

In  Amerika  sind  sie  längst  zum  Alltag  geworden;  die  Modems.  Nun 
gibt  es  auch  in  Deutschland  Akustikkoppler  zu  einem  relativ  günsti¬ 
gen  Preis.  Damit  eröffnet  sich  auch  für  den  Heimcomputer  im  Wohn¬ 
zimmer  die  faszinierende  Welt  der  Datenfernübertragung.  Wir  sägen 
Ihnen,  was  Sie  alles  brauchen  (Treibersoftware,  Schnittstellen),  wie 
Sie  damit  umgehen  und  welche  (legalen)  Möglichkeiten  es  bereits 
gibt,  auf  Mailboxen  zuzugreifen. 


Programmiersprachen 
für  den  Commodore  64 

Das  Angebot  an  Programmier¬ 
sprachen  für  den  C  64  wird  im¬ 
mer  umfangreicher.  Wir  haben 
uns  die  beiden  auf  Mikrocompu¬ 
tern  recht  verbreiteten  Sprachen 
Pascal  und  Forth  einmal  näher 
angesehen.  Wie  sieht  die  Kon¬ 
zeption  dieser  Sprachen  aus,  wie 
programmiert  man  damit  und  wie 
leistungsfähig  sind  sie?  Neben 
diesen  allgemeinen  Betrachtun¬ 
gen  stellen  wir  in  mehreren  Fol¬ 
gen  vier  Pascal-Compiler  (Pascal 
64,  Abacus-Pascal,  Kmmm-Pas- 
cal)  und  zwei  Forth-Versionen 
(Power-Forth  und  64  Forth)  für 
den  C  64  vor. 


Adressenvergleich 
Commodore  64  — 
VC  20 

Ein  leidiges  Thema:  Wie  ann 
man  Programme  von  dem  einen 
Computer  auf  den  anderen  um¬ 
schreiben?  Welche  speziellen 
Systemeigenschaften  sind  zu 
beachten?  Unser  Adressenver¬ 
gleich  zwischen  dem  Commo¬ 
dore  64  und  dem  »kleinen  Bru¬ 
der«  VC  20  bringt  alle  Informa¬ 
tionen. 


Centronics-Schnittstellen 


Nicht  jeder  möchte  einen  Commodore-Drucker  an  seinen  VC  20/C  64 
anschließen.  Allerdings  besitzen  andere  Drucker  oftmals  nur  eine 
Centronics-Schnittstelle.  Wir  haben  für  Sie  einige  auf  dem  deutschen 
Markt  erhältliche  Interfaces  getestet.  Unser  Test  gibt  Ihnen  Entschei¬ 
dungshilfen,  denn  nicht  jede  Schnittstelle  unterstützt  alle  Möglichkei¬ 
ten  Ihres  Epson-Dnickers.  Sie  können  gespannt  sein. 


Magic  Desk 

Commodores  »i 

Schreibtisch«  ist  das  erste  eineF 
Reihe  von  Anwenderprogram¬ 
men,  die  auch  dem  völligen  Laien 
das  Arbeiten  mit  dem  Computer 
ermöglichen  sollen.  Statt  der  Ein¬ 
gabe  mehr  oder  weniger  abstrak¬ 
ter  Befehlsfolgen  wird  »Magic 
Desk«  durch  das  »Antippen«  von 
Bildern  per  Joystick  gesteuert. 
Unser  Testbericht  zeigt  Leistungs¬ 
fähigkeit  und  Grenzen  dieses 
Systems. 

Relative  Dateien 

Die  relative  Datei  bietet  gegen¬ 
über  der  sequentiellen  Datenspei¬ 
cherung  einige  Vorteile.  Bei  ihr 
spielt  der  Arbeitsspeicher  keine 
große  Rolle.  Entscheidend  ist  hier 
die  Diskettenspeicherkapazität. 
Sie  bestimmt  die  maximale  Größe 
der  relativen  Datei.  Somit  kann 
man  auch  große  Datenmengen 
selbst  mit  dem  VC  20  und  dem  C  64 
verwalten.  Wirzeigen,  wie  sich  je¬ 
der  seine  relativen  Dateien  pro¬ 
grammieren  kann. 


CP/M-Software 


Wie  sieht  die  Praxis  beim  Einsatz 
von  CP/M-Software  auf  dem  C  64 
aus?  Lohnt  sich  das  Übertragen 
von  Programmen  anderer  CP/M- 
Computer  und  was  kann  man  mit 
^der  Systemdiskette  alles  anfan¬ 
gen?  Wie  gut  ist  zum  Beispiel 
Wordstar  auf  dem  C  64? 


Basic  Bär 


Das  Programm,  das  Programme 
schreibt.  Was  dieser  Programm¬ 
generator  leistet  und  wie  komfor¬ 
tabel  er  sich  handhaben  läßt,  ha¬ 
ben  wir  getestet. 


Listings 


—  Anwendung  des  Monats: 

C  64  gießt  Ihre  Blumen 

—  Listing  des  Monats: 

Der  C  64  als  Flipper 

—  Kurvendiskussion  mit  Hi- 
Res-Grafik  und  Hardcopy  auf  dem 
VC  1526 

—  Q-Bernd  —  fast  besser  als  das 
Original 

—  Autostart  mit  der  Floppy  in 
Theorie  und  Praxis 

—  Programmverwaltung:  Der  ei¬ 
gene  Programmkatalog 

—  außerdem  natürlich  wieder  vie¬ 
le  Tips  und  Tricks  für  den  C  64  und 
den  VC  20 
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